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fERENXGING 



De uP Kenner (De microprocessor Kenner) is 
een uitgave van de KIM gebruikersc lub 
llederland. Deze vereniging is volledlg 
©aafhankelijk, is statutaii? ©ffeiticht of 
22 Juni 1978 en ingeschre-^ti tsij de Kaiaer 
van Koophandel en Fabrieken voor Hollands 
Noorderkwartier te Alkmaar, onder nummer 
634305. 

We doelstelliiigen van de vetemtflng zijn 
slnds 1 januarl X989 als volgt geformu- 
leerd: 

- Het vergaren en verspreiden van ken- 
Ekls over componenten van microcompu- 
ters, de microcomputers zelf en de 
bijbehorende systeemsof tware . 

- Het stimuleren en ondersteunen van 
het gebruik van microcofl|)utet8 in de 
meer technische toepassli^en. 

Om deze doelstel lingen zo goed mogelijk in 
te vullen, wordt onder andere 6 maal per 
jaar de uP Kenner uitgegeven. Verder wor- 
den er door het bestuur per jaar 5 lande- 
lljke bij eenkomsten georganl8«erd, be- 
heert het bestuur een Bulletin Board en 
wordt er een sof tware-bibliotheek en een 
technisch forum voor de diverse systemen 
in stand gehouden. 

Laadelljke bljeenkonsten: 

Deze worden gehouden op bij voorkeur de 
derde zaterdag van de maanden januari, 
maart, mei, September en november. De 
exacte plaats en datum worden steeds in de 
uP Kenner l>ekem4 ftsjaakt in de rubriek 
Uitnodiging. 

Bulletiit Birard: 

Voor het uitwisselen van mededelingen, het 
stellen en beantwoorden y-m vsa^en. ©a de 
verspreiding van Buftrnxm waz&t er iioor ie 
vereniging een Bulletitt Board beschlkbaar 
gesteld. 

Het telefoonnummer is: 053-303902. 

Sof tware Mbliotheek en Tedbnisch Fortuu 

Voor het beheer van de Software Biblio- 
theek en technische ondersteuning streeft 
het bestuur ernaar zgn. systeemcoBrdina- 
tors te benoemen* Van tijd tot tijd zal in 
de uP Kenner een overzicht gepubliceerd 
worden. Dit overzicht staat ook op het 
Bulletin Board. 



Bestttiir: 

Het bestuur van de vereniging wordt ge- 
vormd door een dagelijks bestuur bestaande 
uit eeti ■^mmi^bex^ km mmmtertiM mm 
peimingmeester en een viertal gewone leden* 

Voorzitter : 
Rinus Vleesch Dubois 
Emiliano Zapataplein 2 
2033 CB HAARLEM 
Telefoon 023-330993 

Secretaris : 
Gert Klein 
Diedenweg 119 

6706 CM mmmmm 

Telefoon 08370-23646 

Penningmeester : 
Jacques H. Banser 
Haf&sbergerstrate 199 
7513 EM ENSCHEDE 
Telefoon 053-324137 

Leden : 

Jan D.J. Derkten 

Ed Verkadestraat 9-1 

7558 TH HENGELO 
Telefoon 074-770970 

Adri Hankel 
Willem Kloosstraat 32 
7606 BB ALMELO 
Telefoon 05490-51151 

Gert van Opbroek (Redactie uP Kenner) 

Bateweg 60 

2481 AN WOUBRUGGE 

Telefoon 01729-8636 

Nico de Vries 
Mari Andriessenrade 49 
2907 MA CAPELLE A/D IJSSEL 
Telefoon 010-4517X54 

Ereleden: 

Naast het bestuur zijn er een aantal ere- 
leden, die zich in het verleden bijzonier 
verdienstelijk voor de club hebben ge- 
maakt: 

Erevoorzitter : 
Siep de Vries 
Ereleden: 

Mevr. H. de Vries \ an der Winjdett 
Anton Mueller 
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De uP Kenner: 

De uP Kenner Is het buls- 
orgaan van de KIM Gel-rul- 
kersclub Nederland en 
wordt bij verschijnen grar 

leden vsn deze ciiilta 

Verschljningsdata: 
De uP Kenner verschljrt op 
dii derde zaterdag van de 
naanden februari, april, 
junl, augustus, oktober 
en deceaber* 

Koplj: 

KoplJ voor het blad dient 
bij vGOfAceur van de leden 
afkomstlg te zijn. Deze 
koplj kan op papier of In 
machine- leesbare vonn op- 
gestuurd worden aan het 
redactieadres. De redactie 
beaj.4,8t^ op baaia van 
brafkbaaziield, publlcatie- 
waarde en actualltelt of 
en zo ja, wanneer een 
ingezonden artlkel ge- 
plaatat wordt* 
GepiaaKate attlkelen bllS" 
ven het geestelljk elgen- 
doiE van de auteur en mogen 
nlet zonders diens toe- 
stemming door derden gepu- 
bliceerd worden. 
flelaaa kan de redactie 
n&th het fteituur enige 
aansprakell jkheid aanvaai^* 
den voor de toepassing(eil) 
van de geplaatate koplj. 

Kedactie. 

De xedactle vordt gevarad 

4mtt 

6ert van Opbroi^ 

Corre sp ondent en £ 
BriaB de Bniint - - 

Antolne Megens 
frank Vandekerkhove 
Mco de Vrtea 
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IMFORMATIE. 

De uF Kenner (De micr mtmmmt Vmemx) 
is e«a uitgave van de ftfif gebruikersclub 
Nederland. Deze vererlglng is volledig 
onaf hankelijk, is stasutair opgericht op 
22 juni 1978 en In^eschreven bij de 
Kamer van Koophandel en Fabrleken voor 
Hoi lands Hoorderkwartler te Alkaaar, 
onder ntnaner 634305* 

De doelstellingen van de vereniging zijn 
sinds 1 januarl 1989 als volgt geformu- 
leerd: 

- Het vergaren er versprelden van 
kennis over comp menten van micro- 
computers, de microcomputers zelf 
en de bijbeboreode systesasoftware. 

- Het stimuleren en ondersteunen ifmt 
h«t g«brti!4k van microcomputers in 

me'e'r technische toepassingen. 

Om deze doelstellingen zo goed mogelijk 
in te vullen, wordt onder andere 5 maal 
per jaar de uP Kenner ultgegeven. Verder 
worden er door het bestuur per jaar 5 
landelljke bijeenkomsten georganiseerd, 
beheert het bestuur een Bulletin Board 
en wordt er een software-bib liotheek en 
een technlsch forum voor de diverse 
sy St even in stmid g«%oitden. 

Landelljke bijeenkomsten: 

Deze worden gehouden op bij voorkeur de 
derde zaterdag van de maan^Ufi januarl , 

eiiscte plaaKs e& iitint «t«ai8 in 

de uP Kenner bekead gemaakt in de ru- 

briek Uitnodiging. 



Bulletin Board: 

Voor het uitwisselen van mededellngen, 
het stellen en beantwoorden van vragen 
en de verspreidlng van software wordt er 
door de vereniging een Bulletin Board 
beschikbaar gesteld. 

Het telef oonnunmet 1*: 053-'303902. 

Software Bibliotheek en Technisch Forum: 

Voor het beheer van de Software Biblio- 
theek en tecbaiaeiiji oa4#f atttusiaji 
St reel t het best'^ir mtmmt sis* np^steaar 
coStdinators te benoeaen. Vaa tljd tot 
tljd zal in de uP Kenner een overzicht 
gepubliceerd worden. Dit overzicht staat 
ook op het Bulletin Board. 



Het Bestuur: 

Het bestuur van de verenlgl^ wordt 
. oirad ioor van dagalljka %#Btavir ' 
taande uit ■mm: voorzitter, een secret! 

.is en een piMMKii^meester en een viertfl 

gewcme ledan. 

Voorzitter: 
Rinus Vleesch Dubois 
Eolliano Zapataplein 2 
2033 CB HAARLEM 
Telefoon 023-330993 

Secretarls: 
Gert Klein 
Diedenweg 119 
6706 CM WAGENINGEN 
Telefoon 08370-2364i 

Fenningmee s t e r : 
Jacques H. Baaser 
Haakabergerstraat 199 ■i 

7513 EM ENSCHEDE 
Telefoon 053-324137 

Leden: 

Jan D.J. Derksen 
Ed Verkadestraat 9-1 

7558 TH HENGELO 
Telefoon 074-770970 

Adrl Uankel 

Willea Kloosstraat 32 ' - 
7606 BB ALHELO 
Telefoon 05490-51151 



Gert van Opbroek 
Bateweg 60 
2481 AN H0UBRIK»3E 
Telefoon 01729-863!6 



(Radactie uF Kenner) 



Nico de Vries 
Marl Andriessenrada 49 
2907 MA CAPELLE A/D IJSSEL 
Telefoon 010-4517154 

Ere leden: 

Naast het bestuur zijn er een aantal 
ereleden, die zich in het verleden bij- 
zonder vejcdieaitaUjk w a^ Aa all* heb*^ 
ben geaaott: 

Erevoorzitter: 
Siep de Vriea 

Ire leden: 

Mevr. H. de Vriea ruA 4er tfindm 
Ant on Mueller 



KIM GEBRUIKERS CLUB NEDERLAND 



Enschede, 10 Nov 1989 

CONCEPT BEGROTING 1990 

BATEN : 

Contributie 120 * Fl 50,- Fl 
Losse uP Kenners 
Si j eenkoms t en 

Reclame 

Dos 65 ■ ■ 



Totaal Fl 7500,- 



6000,- 
100,- 
400,- 
500,- 
500,- 



LASTEN : 

uP Kenner drukken/verzenden 5 * Fl 650,- Fl 3250.- 

Afschijving inventaris - 2000 j- 

Byn&p _ 1000 ! - 

Bestuurs kosten _ 750 - 

Reclame - ledenwervingsactie - 500,- 

Totaal Fl 7500,- 



De begroting geeft een, ttiissehien , te rooskleurig pleat je. 

- De uP Kenner zal in ieder geval geval een stuk goedkoper 
gemaakt worden. Er is besloten om in ieder het blad niet 
Hieer te laten dniklcen. 

Dit neemt al een aanzienliike kostenbesparing met zich mee. 

- De inkomsten die voortkwamen uit de reclame die zoals 
gebruikelijk achter op het blad stond komt tot ntr toe helaas 

te vervallen, de adverteerder zag hiervan het nut niet meer in. 
Het is dus zoeken naar een of meerdere nieuwe adverteerders . 

- De losse verkoop van uP Kenners ligt zogoed als plat. 
Het komt nog sporadisch voor dat men een los nummer koopt . 
Dit gebeurd dan raeestal op aanvraag via het BBS, hoewel dit 
niet van feetek#nis is . . . 

- Dos 65 is ook aan de lage kant gehouden. Hopende nog de 
resterende Eprom programmers te kunnen verkopen zit er nog 
mm fcleine inkomst wit die hoek blj. 

- Het leden aantal zal waarschi j nli jk een 'kleine' daling 
ondergaan waardoor er dus minder geld binnenkomt. 
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mtm4AMim ypor de i lubbljeenkoMt 



Locatie: 



Tel.: 



Zaterdag II november 1989 
Uijkc#»trui)< 't Veurbook 
Jam T<H>Topf>traat 27 
7606 Almel. 
05490 - lO; 53 



Toegang: fl. 10,- 



Byz, 



Jaarvei^adt ring. 



loutebeadiirijIiilQg 

tfit liet ira«««i m i«t itM&i (JI1/A35}: 

1 . JIMS ttftt MM&s van de anelweg rechts- 

af. iij het eerst wolgende krulspunt 
MET VERKEERSLICHTLN linksaf , richting 
Wlerden/ Zwolle. Bij de eerst volgende 
verkeerslichten rechtdoor. Blj de 
volgende verkeer8li«^t*n (links BP 
tankstatlon en Opel gmwe^a K«qp) gaat 
u rechtsaf. 
2« U rljdt nu op de Windmolenbroeksweg* 
Doorrljden tot over de brug, dan de 
eerste straat rechts. Dit is de W. 
van Konijnenburgstraat. Na plm. 50 
otetar reetit iiii. hit is de Toorop- 
straat. Met de bocht mee naar links. 
Na plm. 50 meter aan de rechterkant: 

Van uit het nootijm l»la i* ti 36): 

1. Bij de stoplichten ntthtmf, richting 
St reekziekenhuis. U bevlndt zich nu 
op de rondweg om Almelo. Deze weg 
blljven volgen tot u het BP tanksta- 
tion ziet bij dit kruispunt linksaf. 
Ma m$4mv i^mm 2. ~ 

Mist openbaar vervoer: 

Vanaf NS-statlon Airaelo met de stads- 
bus naar de wijk Molenbroek. Ultstap- 
wm bij de baXte Hi§||»G»lenbi:oek»iNig. 
itb'titn' tiftn&ir«fr 'mPmmhkltit' vtm«t 
een wegwijzer, daarop staat ook 't 
Veurbrook vermeld. 



9:30 Zaal open net koffie 
10:15 Opening 

10:30 Jaarvergadering KIM eebrolkefaeltib 
Nederland: (Toegaili gratis) 
Agenda: 

1) Opening ledenvergaderlng. 

2) Notulen buitengewone 
ledenvergaderlng d.d. 7-10-89. 

3) C(^c«pt begroting 1990. 

4) VeiStlerlng kas-contrOle-commis- 
sie 1990. 

5) Verkiezing bestuursieden: 
Aftredend en niet berklesbaar 
zijn: 

- Gert Klein 

- Rinus VXeeifib D»b(Qd8 

- Adri Hatilcel 

Kandidaten voor het bestuur 
kunnen zich uiterlljk blj 
aanvang van de vergadering 
melden blj de voorzitter of 
dlens plaat«iN|iiriinger. 

6) Rondvraag. 

7) Sluiting. 

12:30 Lunch, consumpties tegen betaling. 
13:30 PoirtM en auirkj: * 

Aansluitend het informele gedeelte met de 
mogelijkheid om andermans systemen te 
bewonderen en Fublic DoiMln softliare uit 

te wisselen. 

17:00 Sliiltlng* 

Het bestuur maakt u er nogmaals op attend 
dat het illegaal verspreiden van software 
ten strengiti ^«ti#i«il £•« Wm iat dus 
nlet. 
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Vaa de redactle. 

In de eerste plaats tieb ik goed nleuws: 

De KIH Gebruikerscittb Nederloid blljft 

toch bestaan. 

Wat Is er de algelopei maanden allemaal 
gebettrd? Wei, een beieboel. Het begon 

allemaal op een bestuursvergaderlng In 
juli. Het bleek toen lat we onvoldoende 
geldmiddelen over haoden om in het lo- 
pende jaar nog drie .P Kenners uit te 
geven op de manier die we gewend waren. 
Verder begon ook het gebrek aan kopij 
ons parten te spelen zodat we als oe- 
stuur toen besloten h^bben de procedure 
die zou leiden tot iquidatie van de 
club op te starten. Het was toen nog wel 
de bedoeling het augi stusnummer uit te 
geireiti liet duaYln de u ttiodtglngen voor 
de tv;ee ledenvergaderingen die voor 
liquldatie noodzakelijk zljn. Toen 
wreekte zich echter Vet gebrek aan ko- 
pij. Om een kenner op ti jd bij de leden 
te krijgen, moet hij ongeveer drle weken 
voor verschijnen samengesteld worden* Op 
dat moment had ik slechts een tiental 
pagina's. Zelf was ik wel aan het 
schrijven maar dat kreeg ik ook niet op 
tijd klaar, ik ben momenteel namelijk 
door de week nlet thuls en moet dus in 
het weekend alle redactiewerk doent 
samen met mijn andere huiselljke ver- 
pllchtingen. Kortom het bleek nlet moge- 
lljk op tijd een Kenner klaar te krij- 
gen. Omdat de ledenvergaderingen door 
moesten gaan, hebben we toen besloten 
tot het ^^ecsturen van een mailing, die u 
allemaal elnd augustus gehad hebt. 

Goed, toen kwam de vergadering in Haar- 
lem. De daar aanwezige leden vonden het 
unanlem zeer jammer dat de club op zou 
houden, de een vanwege DOS-65, de ander 
vantage de bi jeenkomsten^, H(| ^)?ben toen 
met een paar mensen gekieiteli of eif toch 
mogelljkheden zljn door te gaan. Dat 
bleek wel mogelijk als we de volgende 
otamttegelen zouden nemen: 

1) Een goedkoper clubblad ultgeven, 

2) Meer zekerheid over kopij. 

3) Enkele nieuwe bestuursleden. 

Het goedkopere clubblad is noodzakelljk 
omdat het tot nu toe zo was dat elk bl«d 

ons ongeveer fl 12, — kostte en dus 
teerden we per lid per jaar ongeveer 
twee tlentjes in op de reserves. Daar 
hebben ,we,.een oplossing voor gevonden. 
We hebben lemand gevonden die het blad 



(spot-) goedkoop voor ons wil drukken en 
e- kele actleve leden zorgen zelf voor 
het blnden en veczenden* 

Het tweede punt, de, k;®|rt j ;|6«1 iook opge- 
lost worden. Enkele cluble'den' hebben me 
toegezegd geregeld (elke twee maand) een 
artikel te schri j ven. Bovendien heb ik 
naar aanleldlng van Ittfli voorste 1 tot 
1 Iquidatie ook &X: mmt «X£ra kopij ont- 
vangen. 

Het derde punt, bestuursleden, is bij 
mijn weten ook opgelost. Van het huidige 
bestuur blljvfts vlex leden zitten en 
voof dd ov#rig« dele fifncties hebbeii 
zlch kandldaten a«igfMsld< 

Op de vergadering in Almelo (waar Ik 
helaas zelf nlet aanwezig kon zljn) is 
daarna t#i^ht unanlem het voorstel van 
het k^ataitx ti»fe llquldatie afgeatfimd* 

Blijft natuurlijk de vraag of onze club 
ook na het volgende jaar toekomst heeft. 
Ik kan daar geen zinnig antwoord op 
geven. Ik denk wel dat het belangrijk Is 
dat we ook mt wtmw buiten twt wiimldje 
van de 6502, dat van oudsher onse.ifir- 
ciallteit is, gaan doen. Verder is odk 
een f linke stroom kopij van het grootste 
belang want voor de meeste leden is toch 
het blad het belangrljkste communlcatie- 
nlddel. Ik 1mm . ^ jook dat u alien wilt 
mee«e{4ien aws iiitt op^ tnteresaaiits wsffiier 
vullen van het blad. Verder zullen er 
ook een aantal actieve (bestuurs-) leden 
noodzakelljk zljn. Om de kosten te di:uk~ 
ken moeten nu namelijk veel meer werk- 
zaamheden binnen de club ultgevoerd 
tiorden. 

Tenslotte toch lets over dit nummer van 
de uP Kenner. Hierin staat van de serle 
getallen de Inlees- en af drukroutine. 
Deze routines zljn vanult C omgezet naar 
6502 a88«Bd»l6r m veel groter gewitilem 
dan ik verwacht had. Verder staan er 
enkele leuke programa's voor DOS-65 In 
en gaan Nico en Antoine verder met resp. 
JtlS-PiOS en het programmeren in assembler, 
y, .lk;:e«ht gebrek aan heb, is kopij 

die ik kan plaatsen In de rubrlek Talen 
/Software. Ik zou het erg leuk vlnden 
als ik wat korte of mlddellange (maxi- 
maal 10 pagina's = 600 regels) program- 
ma's in Forth, Basic, Pascal, C of lets 
dergelljks zou krijgen. Nlet ledereen 
prograoBiiKert namelijk in ^Bs^bler* 

Uw redact eur: 
Gert: van Opbrd^. 
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WW 4» WK^migmm Uimmim^^^ stSmaim 9f 7 <itt^r 1989. 
1. Opening 

De voorzltter opent le vergaderlng . 



2. Voorstel tot llquLdatie van de verenlging. 

Zoals bekend heeft let bestuur een bultengewone ledenvergaderlng ultgeschreven 
die op 16 September 1989 Is gehouden. Deze vergaderlng was ultgeschrev«a Oii^at 
het bestuur van aening was dat het gezlen de flnanciHle sltuatle vm de clu^ Met 
lanifer verantwoord vas om door te gaan. Derhalve zou op deze vergaderlng een 
voorstel tot llquldatle van de verenlging behandeld worden. De 8t«tuten bepalen 
dat een dergeiljk voorstel alleen tekuiideld km tpef^n Indlen 2/S iriot Ibet aantal 
leden van de verenlging aanwezlg Is. Op de vergadetifig van 16 September was dlt 
nlet het geval en kon het voorstel derhalve nlet belumdeld worden. De statuten 
schrljven in een dergeiljk geval voor dat binnen vler wricen een nleiiwe ledenver- 
gaderlng wordt uitgeschreven. In deze vergaderlng wordt dan ongeacht het aantal 
aanwezlgen met meerderheid van stemmen besloten. Dlt Is de reden dat deze 
vergaderlng thans wordt gehouden. 

Het bestuur heeft besloten het voorstel tot llquldatle In te dienen on een aantal 
radenen: 

1. Uet aantal leden van de verenlging bedraagt momenteel 180. De begrotlng is 
edtter gebaseerd op een asntvl i»m M0« M* gcviiljif t« finTOciile 

situatle danlg verslechterd. De liqulde mlddelen van de verenlging zljn nlet 
toerelkend om de 6502 Kenner dlt jaar zes maal te laten verschljnen. Er zal 
noodgfttimmgen een edltle iM»«t«n vervallen. Te vexwnehten valt dat volgi®d j«ar 
het a«Btal leden opnieuw minder zal zljn dan dit laar, waardoor de situatie nog 
nljpender wordt. 

2. Er komt steeds minder copy binnen blj de redactle. Het gevolg hlervan is dat 
de redacteur steeds meer tijd moet steken in het zelf volschrljven van het blad. 

3. De belangstelling voor de bl jeenkomsten loopt langzaam maar zeker terug. Er is 
een harde kern van leden die elke bljeenkomst bezoekt, maar er komen nauwelijks 
:'n!0g; itiaaiw- i«#6tt bi j . r< ■ 

De afgelopen weken zljn er gelukklg een aantal ontwikkellngen geweeat die het 
bestuur van aaaing hebben doen veranderen. Ben groot a«giC«I ]^datt htmft hat 
bestuur laten weten dat zlj het bultengewoon zouden betreuren Indlen de verenigf* 
Ing zou stoppen. Een aantal van hen heeft aangeboden zlch In te zetten voor hfll£ 
behoud van de verenlging. Daamaast lijfct da flnaaeitXii «4tiH<iKi« 1l@tte 
termljn toch minder slecht dan In eerste Instantle gedacht was. De verenlging 
beschikt nog over een financmie reserve van rulm fSOOO,-. Tenslotte blljkt het 
BOgelljk te zljn de 6502 Kenner veel goedkoper te laten dndekan, «lta can aantal 
werkzaamheden zoals samenvoegen, verzenden enz. zelf worden gedaan. Het boven- 
staande heeft het bestuur van nening doen veranderen ten aanzlen van de over- 
levlngskansen van de verenlging. 

Voorwaarde is echtet wel dat het bestuur versterkt moet worden met een aantal 
nleuwe en aktleve bestuursleden. Drle bestuursleden hebben ta fcennan gegeven dat 
zlj niet meer de tlJd en de energle kunnen opbrengen voor een bestuursfunctle. 
Dlt zljn: Rlnus Vleesch Dubois (voorzltter), Gert Klein (secretaris) en Adrl 
Hankel (lid). Deze drle bestuurders zullen (IteXbtAW «i1^ii^ien voetan worden. Vier 
bestuursleden zijn bereid gevonden om zlch iNiKir tiWIKLnste een jaar te blljven 
Inspannen In een bestuursfunctle. Het zljnl Banser (pennlngtteestel:} , Jan 

Derksan (lid), Gert van Opbroek (redact«ir) en Mco da Vrias (lid). Er is aen 
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kandldaat gevonden voor de functie van voorzitter in de persoon van Mick 
Agterberg. Twee at^nwezige leden, E. Eld^renbosch en Ton Smlt8 stellen zich 
teireas kandldaat voar een bestuursfunctle* 

De iedenvergaderlng stelt voor om nu geen Desllsslng te nemen over de benoeBing 
vm i^meem Mitwurs Leden, maar dit ult te tellen tot de regullere jaarverfitdeif- 
ing van noTondmr* Aldus wordt besloten. 

Reeumerend la de sltuatle dus als volgt: 

1 . Het bestuur trekc het voorstel tot llquldatle van de verenlglng In. 

2« Er wor4t ten regullere J^axveirgaderlng ultgeschreves op 11 noveaber 1989* 

3. In deze jaarvergaderlng moet<^ 4tiB nleuwe besttmrsledest, waaronder een 
viCME>rsltt<sr m 6«n secxetarls gekoz^it warden, 

4. Bet nleuwe bestuiut zal ees beleldsplan aoetea audcen voor de todcomt* 

5. Er zal zo spoedig mogelijk een 6502 Kenner ultgebracht worden waarln dit 
verslag gepubllceerd zal worden. In deze editle zal tevena eea tusaetiftti^ van de 
flnanclMn gepubllceerd worden* 

6. Er zal een concept begrotlng gemaakt worden voor 1990 op basis van een 
verwacfat leiiuital van 100* 

7. In de 6052 kenoer sal tevens een oproep g9$tmK,*t wordkn voor kandldaat 
bestuursleden* 

8. Dm zlcht te krljgen op het aantal leden voor het volgend jaar zal bij deze 
editle van de 6502 Kenner reeds de acceptglro voor de contrlbutle van 1990 
bljgevoegd worden* 



3* Rondvraag* 

De vergaderlng verzoekt het bestuur om In het verslag van deze vergaderlng 
ultdrukkelljk te vermelden dat bovengenoemde beslulten In goede harmonle tussen 
leden en bestuur, en tussen bestuursleden onderling zljn genomen* Er Is geen 
sprake van slechte onderllnge verhoudlngen of wembestuur* De voorzitter dai^t de 
leden voor deze ultspraak en slult de vergaderlng* 



Hagenlngen, 8 dctolMir IMf 



Gert Klein 
secretarls 



^ " AL6EMEEN 



Prograaeren in Assembler (dee! 4} 



FANIEK 



Sinds lange tijd weir eens ingelogd op ons aller BBS (053-303902) en wat V3i! de 
laatste berlchten dc orgekeken. Plotsellng valt mijn nietsvermoedende oog op eem 
bericht van onze eni^e echte redacteur, editor, secretaresse en een-man8-redacti*» 
kortom Gert van Opbrcek (applaus!!). Sluitingsdatua voor uP Kenner #63 Is 4 Augustus 
staat er!! En het it nu 2 Augustus! 11 1 En ik heb mlJn deel 4 nog niet afllillNl 



Dankzij de moderne pt armaceutische Industrie weer helemaal kalm geworden, tQch «i>At 
weer de draad opgeptkt in een poging het 4e deel op tijd af te krijgen. SxmsAS 
indlen de kwaliteit \ an het gebodene wellicht letwat onder het goede (flees geniale) 
niveau llgt zoals U dat van mlj gewend bent. 

In het 3e deel heb ik een aantal schuif functies behandeld die de 6502 aan boord 
heeft. Deze schuif functies bleken weer heel erg goed toepasbaar voor een vemenig- 
vuldig routine. Na opzetten van een eerste ruwe versle aan de hand van een floir- 
difigram, is dei* Feu^tae diarna op een aantal punten verbeterd. 0.a. door gebruik te 
maken van zero-page adresserlng (hogere snelheid, korter progranma) en een betere 
keuze van registers. Ook werd voor het eerst het index register toegepast, wellis- 
waar nog als eenvoudlge teller, maar geduld, het betere werk komt nog. Ik zal in 
deze a£ levering de laatste rekenroutine behandelen t.w. een deelroutine met een 8 
bits deler op een 16-blts deeltal, het resultaat 1« iaii I %it»» 

Inti^t delen 



Integer delen is niets anders dan herhaald aftrekken, tellen hoe vaak dat gaat en 
stoppen als de rest 0 of kleiner dan 0 is geworden. Als de rest klelner d«n nul Is 
dan moeten we het deelgetal er weer blie«lf«fi ttfi ititk«wi8t «et «en verlagen. 
AnaloQf( am de vemeni^vuldlg routine moeten we nu ook schuiven, dus de keuze van de 
aceisuulator voor het 16 bits deeltal (samen met een geheugenplaats B) is weer de 
beste. Het resultaat komt In geheugenplaats Q, de deler staat in loeatie !• 

Een flowchart van het geheel: (Zie volgende pag.) 



Voor de verandering zullen we index register Y eens gebrulken als 
teller. 

; File ; D1V1DE.MAC 

i Purpose : Divide 16 -it number by 8 bit number 



HEXOUTl 


EQU 


$C038 


> 


print A in hexadecimaal 


PRINT! 


EQU 


$C03B 


> 


print tekst tot aan <NULL> 


CSJLF 


EQU 


$C02P 


• 
1 


print <CR><LF> 


; Data 


section 








i 


ORG 


$20 


1 


vertel AS waar de data staat 


GETAL 


FDB 


0 


> 


16-bit8 deeltal 


D 


FCC 


0 


• 
» 


8 bits deler 


Q 


FCC 


0 


• 

< 


8 bits quotient 


B 


EQU 


GETAL 


• 


hulp accu B (- lo part GETAL) 



teller 0 



I RES = RES - D I 
4 ^ + 



H + + 

I Rotate Q left | 
+- -i 1- 

I 

1 — ^ + 

Rotate deeltal left | 
~ 1 h 

I 

H + 

/ Is er geleend? \ Ja 
\ / >- 

4 >. ■ ■■.■■ » ■ - ■ ' ■"■■ 1 ' 



RES » SES - D I 

t"- • + 



herstel 
I HIS j» BE S 4- D 



I teller " teller - 1 | 
i ^— 



■+ 



/ t eJLIe£ « 0 ? \ Nee 

\ / 

-+ 



/ is er geleend? \ Nee 
\ / 

I RES - RES + D ] 



I 



j rotate ^ left | 
^ i p. ^ 



i 



klaar (Q » ultkoiast, A - rest) 



IE) IS ajIF» 



Code section 





086 


$1000 


BIVIDE 


LDA 






LDY 


#8 




SEC 






SBC 


D 


LOOP 


PHP 






ROL 






ASL 


B 




ROLA 






PLP 






BOG 


ADD 




SBC 


D 




JHP 


NEXT 


m> 


mc 


n 


NE3tf 


DEY 






BNE 


LOOP 




BCS 


LAST 




ADC 


D 




OC 




LAST 


m 


Q 




STA 


B 




JSR 


CRLF 




LDA 


Q 






HEXOUTl 






PRINTl 






' rest 




LDA 


B 




JSR 


HEXOUTl 




JSR 


CRLF 




RTS 






END 


DIVIDE 



; vertel AS ^^aar het pwogtmma. beglnt 

; haal high part deeltal In A 

; gebrulk Y als teller 

; we gaan aftrekken, dus CARRY aan! 

; deeltal(high) - D 

j bewaar CARRY status «v«atjes op stack 

I schttlf carry In Q 

; en schulf deeltal <A <- B <- 0) 

; haal status reglafete f User van stack 

; geen borrow? 

; nee, doe volgende subtract 

; en kljk of we klaar Miin 

; te ver gegaan... 

; verlaag bit telleiC 

; en ga door 1 1 

; laatste SBC gaf borx0if? 

i j«> te ver gegaan. •• 

; schulf laatste carry In Q 

; en bewaar rest in hulp accu B 

; laat resultaat zlen op schem 



'.0 



; terug naar HON of DOS 
; th«t4 ^BdLl fnikal 

(Let wel, deze prachtlge routine heb ik niet zelf bedacht, deze heb Ik geplkt ult 
Rodnay Zaks (ultstekende) boek, 'Programming the 6302' dat voor zover Ik weet ook in 
bet itedex'laads te kcljgen is). 

Deze routine 'verknalf* zoals je zlet het <lov> gedeeite Vtta liet 16-bits deeltal, na 

8x schulven is dat byte helemaal met O-en vol geschoven (ASL). Daar(MB kuniEmi IMi het 
net zo goed gebruiken om de rest van de deling (in A) op te slaan. 

Assembleren en laden die hap: 

$ AS DIVIDE .MAC 
Pass 1 . . . 
Pass 2 . . . 

Last assembled address: 103F 
Errors detected: 0 
$ LO D1V1DE.BIN 



Nu even proberen m.b.v. van de monitor: 



MON> (a 0020 

0020 00 00 — > GI7AL $1200 • 4608 

0021 00 12 

0022 00 40 fi « $40 - 64 
MON> e 1000 

48 rest: 00 — > Q - $40 ■ 72 en dat klopt 

Probeer zeXf mMX tf#t ttftdete getallen, je zult zo nu en ian een rest krljgen. Blj 
floating point rekeneo zouden dat de getallen achter de komaui worden* 

Zo, nu hebben we allt rekenkundige hands lingen gehad. Maar de ALU, (▲rithmetlc & 
Logic Unit zoals de Fransen zeggen) kan, zoals de naam al aangeeft, aiet alleen 
rekenkundig naar ook voor Iqgiscfae functles gebrulkt worden. 

Me li^lsefie functles zijn AM), OR en exclusive OR (EOR). Blj deze groep zou je ook 
de fichuif operaties ult deel 3 kunnen indelen. Een buitenbeent je Is de functle CMP 
(CoMPare) van de ALU. Deze functle kan gebruikt worden om twee getallen te 
vergelijken. Wat er in feite gebeurt is een SBC van die twee getallen zonder dat het 
resultaat ereens bewaard wordt, maar wat wel wordt bljgehouden Is het gevolg van die 
SBC dp list flag-register P. Due na een CMP kun its. mm de %mi vm de Z-f lag kljken 
of de t«ee getallen gelljk zijn, of mst de C-f lag of de ene kleises iy dan de ander 
etc. etc* 

TEST LDA GETALl ; haal getal 

CMP GETAL2 ; en vergelijk 

BEQ GELIJK ; ze zijn precles gelijk! 

JMP END 

GELIJK 

END ms 

De loglsche functies OR, AND en EOR zijn een van de meest gebruikte functies om een 
link te leggen met de hardware van je systeem. Veel van de hardware is immers 
gecontrolleerd d.m.v. van allerlei control-registers, status-registers en noem maar 
op. Al die registers stlkken van de bitjes die allemaal weer hun specif ieke beteke- 
nls hebben. Die %«telkenis kun je uit een dat aboek/ datasheet dat betreffende IC 
halen. Uil je mt meq apedflek bltje uit een ajtatus r«gi«t«t t««(en dan zul je dat 
ene bltje dus iBOeten Istiietfen vin de sndete bits, lierinu da^li^oor zijn de loglsche 
functies ideaal. Voor dlegenen die een beetje roestig zijn waar het logische of 
booleaanse functies bet reft volgen hieronder de waarheids (en niets dan de waarheld) 
tabellen: 



bltl 


bit 2 


OR 


AND 


EOR 


0 


0 


0 


0 


0 


0 


1 


1 


0 


1 


1 


0 


1 


0 


I 


1 


1 


1 


1 


0 



De slimste rakkers hebben het misschien al gezien, de AND functle is ideaal voor het 
Isoleren van een bit zodat hij ter observatie kan worden opgenomen. Kljk maar: 

bltl blt2 AND 

0 X ~> 0 

1 X — > X 

Uaarbij x zovel 'QT als T kan zlin. Zoals Je ziet is de uitg«ag de Am functle 
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Alsimeen 



altijd '0' als bltl dat ook is. Is bltl ec iter '1' dan wordt de ultgang volledig 
bep^swld door ons oabeKende bltje. Duidelljk ; 

Welllcht zal een voorbeeld in ASM U de sche len van den ogen doen valien: 



LDA 
AND 

JMP 

BIT SET JSR 
CONT 



STATUS 
#%00 100000 
mt SET 



; lees status register 

: iBadceer alle« behalve bit 5 

; het bltje is '1' 

; geen actie, bit is 'QT 

i AURMIltlll 



Zo sou een subroutine in de procesbesturing vsa e«n keiWBtiitirale leimpgt detecteren 
hoe de toestand von de kern op een bepaald noiiettt 1«. Die tbttstand wordt bijgehouden 
in een STATUS register waarbij bit 5 bijvoorbeeld aangeeft dat er stront aan de 

knikker is, (MELTDOWN IN PROCESS, 10 SECONDS TO GO AND COUNTING 9,8,7 ) afijn, 

dat verhaal kent U. 

Heel algemeen kun Je stellen dat de AND functle gebruikt kan worden ▼oor het 
'resetten' van bits, de OR functie voor het 'setten' van bits. Maar die EOR functle, 
wat Is dat voor rare druif ? Welnu die is heel geschikt om een bltje als een blad aan 
de boom te doen ondilappen (net een Frans voord 'toggle")* Kljk WMKI 

bitl bit 2 EOR 
1 0 —> 1 
1 1 — > 0 



Zoals je ziet is de ultgang van de EOR functie steeds precles het tegenovergestelde 
van bit2 mits we bitl op '1' houden. Maar wat te doen als we bepaalde bite nlet 
willen beinvloeden? Welnu, die houden we gewoon "naast' een '0", kljk maar: 

bltl blt2 EOR 
% 0 •«-> 0 
t 1 — > J 



want dan wordt dat bit gewoon aan de ultgang doorgegeven. Deze functle kun je o.a. 
gebmlken om. een puis op te wekken op een I/O poort zonder de andere lijnen van die 
pomt'ttt hmtmvlmAmL*-&» 'Aitii.. te desonstreren he«ft ml$n. niwmmt rufteade brein de 
volgende, 8la|»«Jlfe «eiiiih. §tsMmim% ewaiktm ^tipWBAammtM 



File: EOR_DEMO.MAC 

Doel: demonstratie EOR functie d.iii.v. knlpperende letter op scherm 



OUTCHAR 


EQU 


$C023 


CLS 


EQU 


12 


VIDEO 


IQU 


$E800 




DBG 


$1000 


DIMO 


IM. 


#CLS 




JS& 


OUTCHAR 




LDA 


#'A 




STA 


VIDEO 


FLASH 


LDA 


#%1 0000000 




EOR 


VIDEO 




STA 


VIDEO 




JSR 


DELAY 




JMP 


FLASH 


DELAY 


LDX 


#0 


DLOOPl 


LDY 


#0 


DLOOPZ 


DEY 





; DOS65 routine, output char. 

; <FormFeed> 

: adres in video RAM 



in A 



wissen die hap 

; we zetten nu een 'k' d.m.v. een directe 
write-actie in video RAM op het 8ch«rM 
toggle normal/inverse bit 

en schrljf dat terug 

effe wachten, anders gaat het te snel*. 

en ti^gelen iiaar veer 

we gaan g&tooa 6S535x nlets doen! 



«« 



iAyLiABMiEII' 



BNE DLOOP ' ; deze gaat 556x keer rond 

DEX 

||E DWOB, ; en deze oc f 

END DEMO 

Dlt progXTdSDoa deiaonst ceect dat de EOR functle alleen dim bits aantast waarvan het 
overeenkoBende broertje lii de Accu op '1' is gezet. In dit geval wordt gebruik 
gemaakt van de elgenschap dat de karaktergenerator van het DOS65 systeem het karak- 
ter 'Inverse' op het beeldscherm weergeeft zodra het 8e bit 'geset' Is. Weinu door 
daarvoor de EOR functie te gebruiken hoeven we verder nlet te weten die andere bits 
allemaal zijn, het laat ons volkomen koud, het zal ons kortom worst iljja wa,t die 
andere bltjes allemaal in hun vrlje tljd plegen t« de«nl. ftdlHlitlf linir ein» dwoi: set 
MON de LDA rA' (A9 4 ) instructie te wijzlgen in bijv. LDA jTl' (AS 42) en je eult 
zien dat er dan Ineens een knipperende 'B' op het scherm staat. 

$ AS EOR_DEMO 
Pass 1 . • . 
2» .. 

lAMt ftSBentbled address: 1022 
lirroTS detected: 0 
$ W SOR DEMO. BIN 

$ 6 loocr 

*C 

$ MON 

(MON> D 1000 Ceventueel)) 
MON> @ 1006 
1006 4} 41 

HOII> E 1000 

Let wel, ondat het schem niet het gehele RAM geheugen weergeeft is het best 

mogeliilt t^it de geheugenlocatle die in dlt programma gebruikt wordt net even niet 
zichtbaar Is, Dat is ee.nvoudlg op te lossen door het scherm een paar regels te laten 
'scrollen' en her dan nog eens te proberen. Zoals je ziet, zit het programma boven- 
dien in een oneindlge lus (JMP FLASH), dus afbreken kan alleen aet <CTRL-C>. Probeer 
i«It het programma zo te veranderen dat de letter preeies !#9t kMppert en dan 
terugkeert naar DOS of MON. Gebruik daarvoor bljv|»otltaMl^i het index X register, maar 
let wel op want dat wordt ook al gebruikt In de DELAT routine!! Probeer ook eens wet 
het effect is van een ander getal in de EOR functie (een leuke bij letters Is bljv. 
$20). Enfin, zoals de Engelsen zeggen, tot het volgende deel maar weerl 

Antolne. 



HELP HELP HELP HELP HELP HELP HELP HELP 

Enige tijd geleden werd ik benaderd door lemand met de vraag of de club hem aan (een 
kopif vmO OElglnele beschrijving van KB9 Basic kon helpen. Ik heb toen binnen 
het besttiur gefaformeerd of er iemand was die deze beschrijving had en kreeg een 
bevestigend antwoord. Daama heb ik de vraagsteller eerst lid gemaakt met de belofte 
de beschrijving op te sturen. Echter, wat bleek...... Degene die mij een beschrij- 
ving had toegezegd was hem kwljt* 

Dus: Hie heef t voor kLJ een beschi^jviitg van KB9 HaaOLc^ soAitt Ik Kija bel^te m ian 
kooieni 

Graag contact opneaien net: 

Gert vim Opbroek, 01729-8636. (Kosten worden ulteraard vergeed). 




Dl^-6S €oi»iER 



LINEARISERING 



Door Frank Vandekerkhove 

Dlt artlkel kan gezlen worden als een vervolg op het artlkel "$f sanlngeil ■eten oet 
Do865, uP Kenner nr. bO pag. 33 van dezelfde auteur (red.)* 

Het meten met NTC's moet gepaard gaan met een correctle (zie "Temperatuur meten met 
NTC's" in Elektuur, tebruari 1988, biz. 52). De kromme weerstandskurve moet recht 
gemaakt worden. Dat geldt ook voor een Platina-Rhodlum themo-koppel: de afgegeyen 
spatmiftg is nlet'llnealr met de tenperatuur* 



Het onderstaande 
vemerklng* 



programma komt tussen de geneten spanning (A/D converter) en de 



Op basis van de hoogste bits van de meting, die als een pointer gebruikt worden, 
wordt in de tabel gekeken wat 4a waarde van daze neting had moeten zljn. De vier 
laagste bits worden door llneaTlsarlng gevorad op basis van het varschil tusaea de 
vervangen waarde en de eerat volgeiide. 

De tabel bevat voor een aantal metlngen, waarvoor de laagste vler bits mil zijn, de 
vervangwaarde volgens de gegevens van de fabrlkant* 



Om het programma te demonstreren, wordt geen data van een A/D 
maar de waarde van een teller die steeds verhoogd wordt* 



ccotverter genonen, 



File: 
fmictioB: 



FtlOcnv.mac 
PtJOcnv 

€e«vert input data 



Frank Vandekerkhove 

Sint-Hichleltstraat a, 8^2789 Verrehro^ 
*** 1/065 2i(yt sttbroutlBes *** 



conver equ $FF02 

pridec equ $FF41 

. 

t 

: *** lo var *** 



dedl 

decl2 
decl3 



equ 

equ 
equ 



$E73A 

$E73B 
$E73C 



convert 2 bytes hex into 3 bytes dec* 
print dec nu]ri>er8 (decl 1, 2 & 3) 



variahlea i'm ejtleulate declnal 



*** Dos 65 2.01 subroutines *** 



out 


equ 


$CQ23 


put a character 


crlf 


equ 


$C02F 


print <CR> «ui <ti> 


spa 


equ 


$C032 


print a space 


hexout 


equ 


$C038 


a hexout 


prl&t 


equ 


$C03B 


print at ring i^ter call 




org 


$1000 * 




> 

conv 


Ida 


#$00 


reset counter 




St a 


cnt 






sta 


cnt+1 




> 


jsr 


erlf 





mm 




iispa 



Idx 
Ida 
jsr 
Ida 
jsr 
Ida 
jsr 
Ida 
jsr 
jsr 
jsr 
fee 



cnt 

cnt+1 

conver 

deci2 

hexout 

r. 

out 

decl 

hexout 

spa 

print 

'BlV',0 



jST aspa 

Ida cnt 

Idx cnt+1 

8ta input 

aCx iBput+l 

Jsr PtlOenv 

liStx. lltput 

Ida input+1 

jsr conver 

Ida deci2 

jsr hexout 

Ida decil 

jsr hexout 

jsr spa 

jsr print 

fee —C'.O 



jsr 

Ine 
bne 
inc 
Ida 
cmp 
bcc 
Ida 
cmp 
bcc 
rts 



crlf 

cnt 

2.f 

cnt+1 

cnt+1 

#$05 

l.b 

cnt 

#$9b 

l.b 



Idx #$04 

jsr spa 

dex 

bne 1 .b 



pris^ coitiiter daeiikal 

high d@c out 
di&eisiti fixtnt 

low dec out 

print "raV" 
print A x <SP> 
counter into input 

convert input Into PtRh/Pt lOX v«I«» 
print result of PtlOeikv 
convert hex into dec 

print high byte 
print low byte 

print "Celsius" 

print <CR> and <LF> 
ine counter 



check for maximum 
counter < $0500 
repeat 



counter < $059b (max. 
back to Dos65 

print 4 X <SP> 



1400 C) 



I *** PtlOcnv: change input (bO-blO) into PtRh-Pt lOX valua *** 



PtlOcnv 
1 



Idx #$04 

as I input 

rol input+1 
dex 

\fm 1 'b 

asl input+1 

Idy input+1 

Ida conTAB.y 

St a para+l 



prepare loop 

xxxx xddd dddd dddd becoaes 
xddd dddd dddd 0000 

shift 4 tines 

xddd dddd becomes dddd dddKf 
make index of it 
get high parameter 



iny 




Ida 


conTAB.y 


sta 


para 


iny 




Ida 


conTAB.y 


sta 


patb+l 


iny 




Ida 


conTAB,y 


sta 


parb 



Increase index 
get low 

Increase index 
get next parameter 



para contains the new input according to tix^MO^^ 

unused lowest nibble of the input residents as high nibble in input: 
therefore add, for b7, the diff. between para and parb /2 to para 
for b6, the diff. between para and parb /4 to para 
for b5, the diff. between para and parb /8 to para 
for b4, the diff. between para and parb /16 to para 
get differenee ^ wij^tract parb minus para 



sec 

Ida parb 

sbc para 

sta result 

Ida parb-t-1 

sbc parafl 

at a re8ult4l 

* 

j *** iineair regression *** 



subtract para f roa parb 



Ida 


#$80 


sta 


mask 


Idx 


#$04 


Isr 


result+1 


ror 


result 


Ida 


aask 


and 


ii^t 


beq 




clc 




Ida 


result 


ade 


para 


%m 




reault't'l 


adc 


para+1 


at a 


para+1 


lar 




dex 




bne 


l.b 


Ida 


input 


and 


#$fO 


beq 


3.f 


clc 




Ida 


#$01 


adc 


para 


sta 


para 


Ida 


#$00 


adc 


para+1 


sta 


para+1 


Idx 


para 


Ida 


para+1 


«tx 


input 



first b7, then b6, b5 and bA 

preset the loop 
divide result by 2 

get aask for b7, b6, b5 or b4 



add divided result to para 



aake next aaak for b6, bS and b4 



add $001 to llnaalr regreaalon 



low in X, high in accu 



IS 



sta Input+i 
rts 



conTAB 



s 

cue- 
input 
power 
para 
parb 
result 
mask 



FCC $00 

FCC $00 

FCC $00 

FCC $01 

FCC $01 

FCC $01 

FCC $01 

FCC $02 

FCC $02 

FCC $02 

FCC $02 

FCC $03 

FCC $03 

FCC $03 

FCC $03 

FCC $03 

FCC $04 

FCC $04 

FCC $04 

FCC $04 

FCC $04 

FCC $05 

FCC $03 



res 

res 
res 
res 
res 
res 
res 



,$00, $00 
,$6A,$00 
,$B6,$00 
.$00, $01 
,$46. $01 
,$8B,$01 
,$CE,$01 
,$0E,$02 
,$4E,$02 
.$8t,$02 
,$C9,$02 
,$05, $03 
,$40, $03 
,$7A,$03 
,$B2,$03 
,$EA,$03 
,$22, $04 
,$58, $04 
,$8E,$04 
,$C3,$04 
,$F8,$05 
,$2D,$05 
.$62, $05 



,$ic,$oo 

,$7A,$00 
,$C8,$00 
,$12, $01 
,$58, $01 
,$9C,$01 
,$DE,$01 
,$1E,$02 
,$5E,$02 
,$9C,$02 
,$D8,$02 
,$0A,$03 
,$4F,$03 
,$88, $03 
,$C1,$03 
,$F8,$04 
,$30, $04 
,$65, $04 
,$9B,$04 
,$D0,$04 
.$05, $05 
,$3A,$05 
,$70, $05 



2 

2 
2 
2 
2 
2 
1 



,$36,$00,$4s2 
,$8E,$00,$A2 
,$DC,$00,$E6 
,$24, $01, $36 
,$69,$01,$7A 
,$AC,$01,$BD 
,$EE,$01 ,$FE 
,$2E,$02,$3E 
,$6D,$02,$7C 
,$AB,$02,$BA 
,$E7,$02,$F6 
,$23, $03, $32 
,$5E,$03,$6C 
,$97,$03,$A4 
,$CF,$03,$DD 
,$06, $04, $14 
,$3D,$04,$4A 
,$72, $04, $80 
,$A8,$04,$B6 
,$DD,$04,$EA 
,$12, $05, $20 
,$48,$05,$55 
,$7D 



end cMiT 
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- Ultgebrelde junior 6502 coiaputeT vet: 

- Elektuur's grote buskaart 

- Elektuur VDU kaart 

- Elektuur dynamische 64k RAM kaart Prijs 

- Elektuur statisch^ Jj^,k^|||^,^lje]?^t 1^ 

16 k) TeXefo(» 

- Zelfbouw I/O kaart (2 * 6522, pieper, 
etc. ) 

- Elektuur voeding met ca88ette*-deck 

- Elektuur toetsenbord 

- DOS-65 disk controller kaart 

- 2 floppy drives oet ii^ebouwde voeding 

- fi0S-65 s&ffxNite en ddlSigientatle 

- DATAPOINT teralnal, te gebtulken Ala 
monitor 



Aliea eventueel mat Junior boeken en 6502 
bladen* 



Nog overeen te koaen 
Jeroen.Oort 

-^740 ('» avonds) 



« - , ' , , ' ',3 



US-DOS 



De IBM-PC en z n klonfin (r^i ^\ 

Door. Nico de Vries. 

PFOP^e^. en eai kwak geheagen en wat primitieve I/O. of kortwetf de 
inhoud van het noederil!^ in een PC heb Je n^t zoveel. 5e kunt gSen res^ltatS Sen 
en je taont geen gege/ens invoeren. Daarom ^ rlaten we in dU dell het mSedlrbord pA 

Ot"v^ drPc^n di^l^^S^f n'^^^ ^^^"^^ naar een^'^Lnx^'JrTlkioW 'iS 
^^^^t in.Principe twee display opties, beide bestaande uit een 

^l^eT «^^terkaart, bedoeld om in 1 van de slots op' het moSrffl gesJokSJ 

iSgrrJKo^JL r.lX^°IS^Lrr''°' ^^^^ adlpter"5S!dt"SSS! aSSSuM 

5.2. De MnnoohmBie Disnlay Ar^flpt.ftr, 

Zoals reeds opgemerkt is de monochrome 
display adapter bedoeld voor teksttoe- 
passingen. De kaart kan dan ook alleen 
maar tekst laten zien, net als de CRTC- 
kaart in de D0S65 en Octopus systemen. 
Het schermformaat is ook standaard: 25 
regels van ieder 80 tekens. De kaart 
echter lets uitgebreider dan de f" 
CRTC kaart: de karakters kunnwi cp 
meerdere manieren getoond worden. 
On dit ittg^lijk te naken wordt van 
leder kara^er niet alleen de ASCII- 
marde in het videogeheugen bewaard, 
naar ook nog een tweede byte, dat 
aangeef t hoe net karakter op het scherm 
moet verschijnen. Ieder karakter 
beslaat dus 2 bytes in het videogeheu- 

§en. Dit is overigens bij alTe IBM 
isplayadapters het geval. Het tweede 
byte wordt het attribuut-byte genoeid. 
In de MDA zijn de volgende ftilrliatm 
mogelijk: 



iliide disrolaykaarten lijken in opbouw 
op elkaar. Ze zijn bejxle gebaseerd op de 
ons wel bekende 6845 CBT-controiler 
6845 verzorgt het opwekken van 
de lijn- en rastersynchronisatiesignalen 
en het leveren van de videogeheugen- 
adressen voor het laten zien van de 
informatie op het scherm. 

Ook hebben beide kaarten een karakter- 

fenerator in ROM, die de conplete IBM 
arakterset bevat, dus 258 verschillaidle 
tekens. De tekens die bij de ooias I^ISO 
tot en met f 7F horen, kam&n avmtmm^ iwi 
de gebruikeligke ASCII tekenswi. ^asits 
boven $80 zijn onder andere: speciale 
nationale tekens zoals die met accenten 
of umlauten, de nederlandse gulden (f ) 
ai de ij met puntjes (y), verder zijn er 
tekens om kadertjes en dsrgelijke te 
maken, de zogenaamde line-draw karak- 
ters. Dit levert onder ondere de 
volgende mogelijkheden op: 



Integraalteken : 



J 



Attribuut 
Niet zichbaar 
Onderstre^pt 
Noniaal 



De rest van de tekenset wordt gebruikt 
vpor deel van het Griekse alfabet en wat 
wiskundige tekens, waaronder het 
complete integraalteken, bestaande uit 
twee karakters (zie boven). 

Om de scherminhoud te bewaren, heb je 
een videogeheugen nodig. Bij de MDA is 
dit statisch RAM, en wel 4kbyte, 
opgebouwd met 2 2kx8 SRAMs. De OGA-kaart 
heef t 16 kbyte dynamisch BAHi, opg^xxiMi 
mt 2 stuks l%x4 DRAMs. De refresh 
^Murt door tet periodiek uitlezen van 
net RAM t b.v. het di^lay. Tot zover de 
overeenkomstige zaken. Ha de beide 
kaartoi in detail. 



Bit 76543210 
BOOOIOOO 
BQOOIOOl 
BO 0 0 1111 

Hierbij geldt verder: 

1=0: normale karakterhelderheid 

1=1: verhoogde karaktwrhBlcUwheid 

(Intensified) 

Het B-bit kan twee functies hebben, 

afhankelijk van het blink-enrf)le bit in 

1 van de statusregisters: 

Blink-aiadble=0 

B=:0: achtergrcnd is zwart 

B=l: achtergrcxid is helder 

Blink-enable=l 

B=0: continue weergave 

&=1: karakter knippert 



In het algemeen stei ien de bits 0-2 van 
het attribuutbvte de voorgrond helder- 
heid van het karakter voor, terwijl de 
bits 4-6 de helderheid van de achter- 
grond bepalen De helderheid van de 
voorgrond kan nog wcirden vergroot door 
het I-bit 1 te maker Deze opbouw lijkt 
CO de opbouw van het attribuutbyte in de 
OGA kaart (zie verderop), zij het dat 
niet alle mogelijkheden worden gebruikt. 

De goede weergave van de karakters met 
deze kaart vindt zijn oorsprong in het 
felt dat een karaktercel 14 bij 9 pixels 
groot is, waarvan er 14 bij 8 gevuld 
worden door de karaktergenerator . Door 
een true in de displayhardware sluiten 
grafische tekens toch aan: de laatste 
pixelkolom wordt in die gevallen 
tweemaal getoond. Ook de grote video- 
bandbreedte in de monitor gecombineerd 
met een fosfor met hoge scherpte draagt 
bij tot de werkelijk uitstekende beeld- 
kwaliteit. Het beeld maakt verder een 
rustige indruk: dit wordt veroorzaakt 
doordat IBM gebruik gemaakt heeft van 
em nalichtende fosfor. Deze fosfor is 
er de oorzaak van, dat het scherm na het 
scrollen enigszins nagloeife, en de 
neiging tot vegen vertoont. 

De monitor wordt met de MDA kaart 
verbonden via een 9-polige D-ccsinector, 
dto volgfinie BimmXm voert : 

Pin . 

1 GND 

2 GND 

3 Niet aangeslotai 

4 Niet aangesloten 

5 Niet aiangesloten 

6 Intensify 

7 Video 

6 Horizontal drive 
9 Vertirail drliw 

Alle signalen zijn TTL-niveau: dus nul 
of een. Dit houdt in, dat de karakters 
op het scherm wit (groen) of zwart 
kunnen zijn. Hetzelfde geldt voor de 
achtergrond, die wit ^gro«i) of zwart 
is. In de monitor is een circuit 
aanwezig dat de voorgrond helderheid 
verdubbelt als het Intensify signaal 
hoQ^ is De kontrastregelaar op de 
B£»nitor regelt dan ook de helderheids- 
verhouding tussen de normale en de 
intensified karakters 

Oadat het scherm altijd 25 regels van 
80 tekens bevat en de MDA maar 4 kbyte 
RAM heeft, kan de kaart maar 1 scherm 
bewaren, inclusief de attribuutbytes . 

Als enige display kaart in de IBM reeks 
IS de MDA voorzien van een iHWaluiting; 
voor een parallel printer 

De 6845 CTRC bevindt zich op I/O 
adressen 03B4 en OSES Oa&B bevindt 

zich het displaymode reglgtstar, en qp 
03BA zit het statusregister ttm de 
displai^eaffl^. De 68i5 wordt ztodanig 
I^^MfcwBKWrd, dat de lijnfrequentie 
lP.7 mMz en de rasterfrequentie 52.5 Hz 
bedragtEKi. 



De printerpoort bevindt zich cm? de l/Q 
adressen 03BC, 03BD en OSm, &n ''miB^ 
geheel over een met de printerpoortiti ^ 
andere kaarten. Als de MDA in |^ 
systeem zit, is de printerpoort evmn 
altijd LPTl: . 

Het videogeheugai bevindt zich op de 
«3Solute adressen BOOOO-BOFFF, meestal 
Mngeduid net 8000:0000 tot en net 
BO0O:0FFF. 

5.3. De Color ftr«phir>^ ^fflPt.ftF. 

Als tegenhanger van de MDA kaart bood 
IBM ook een kleurenkaart aan: de OGA. 
up grond van de beeldkwaliteit is de 
CXjA kaart minder geschikt voor tekst- 
toepassingen: een lu^i^tft^}. bsslaat 

siechts 8 bio 8 ■^smmi. 'Wmtm^im 

heeft de kaart een gifosl wmM am 
nc^elijkhidaiy iieegekregen. 

Zeals de naam al aangeeft, kan de CXJA 
kaart in grafische mode bsdreven 
worden, waarbij ieder pixel op het 
scherm aan of uit kan zijn. Daazmaast 
heeft de kaart ook een aiMiftl Itokst- 
modes. Een overzichtje: 



Mode 
0 
1 
2 
3 
4 

I 



Beschrijving 
Tekst, 25 regels van 40 karakters 
Als mode 0, aoch kleur 
Tekst, 25 regels van 80 karakters 
Als mode 2, doch kleur 
Graphics, 320x200 pixels, kleur 
Grepbios, 320x200 pixels, M 
QxBiMoB, 640x200 pixels. 

Het verschil tussen de zwart/wit en 
kleur modes is alleen te zien, wanneer 
een Amerikaanse NTSC kleurentelevisie 
gebruikt wordt met een modulator. In de 
zwart/wit modes ontbreekt namelijk het 
burstsignaal. Op een gewone kleuren- 
monitor zign deze modes gelijk. 

De mogelijkheid om een kleurentele- 
visie te kunnen gebruiken geeft al aan, 
A^. l^i^ e" rasterfrequenties 
dezelfde zi^n als bij (Amerikaanas) TV : 
respectievelijk 15750 en 80 Hz. 

Zeals reeds goaeld is het videogeheu- 
genlB kbyte groot. In tekstanode worden 
de Imrakters net als bij de MDA kaart 
als twee bytes opgeslagen: de ASCII- 
waarde, gevolgd door het attribuutbyte. 
De bits in het attribuutbyte hebbai de 
volgende betekanis: 

Bit Betekenis 

0 Voorgrond, Blauw 

1 Voorgrond, Groen 

2 Voorgrond, Rood 

3 Intensify voorgrond 

4 Achtergrond, Blmm 

5 Achtergrond, Groan 

6 Achtergrond, Rood 

7 Blink bit 

Net als big de monochrome kaart bepaalt 
een bit in het statusregister het 
gedrag van het blink-bit: naar keuze 
wordt de achtergrond geintensiveerd of 
knipperen de karakters met dit bit 



3R5r 3sgr 3S 



gezet Merk op dat de CXjA niet kan 
onderstrepen als attr ibuut 

Samen met het intansify-bit zijn er in 
totaal 16 voorgrondkleuren mogelijk, 
terwijl er keus is uit 8 achtergrccid 
kleuren De schermrand kan nog apart Btm 
kleur krijgoi via het kleurregister : 
eveneens 16 kleurai (RGB + intensify) 

Een 40x25 scherm beslaat lOCK) karak- 
ters, of 2000 bytes VRAM. Hierdoor is 
het mogelijk in totaal 8 van dergelijke 
schermen tegelijk te bewaren Deze 
mogelijkheid wordt dan ook door het 
systeem BIOS ondersteund: door het 
veranderen van het display startadres in 
de 6845 kan de gewenste pagina op het 
scherm getoond worden Ook in 80x25 mcde 
werkt dit, zij het dat er dan uiteraard 
maar vier pagmm^k miM hmmhildtkm 
staan 

In grafisch bedrijf wordt het allenaal 
heel anders. In alle grafische modes 
wordt het gehele videoRAH gebruikt voor 
1 enkel scherm. In de twee 320x200 pixel 
nodes zijn er dan 2 bits per pixel 
beschikbaar, waardoor een pixel 4 
kleuren kan hebben. Deze kleuren zijn 
niet vrij te kiezen in het kleuren- 
register is een bit dat bepaalt welke 
van de twee beschikbare paletten 
gdsruikt WGS«dt. 



Bits Palet 1 

0 0 Achtertfrond 

0 1 Cyian cGw) 

1 0 Magenta (R+B) 
1 1 Wit (R+G+B) 



Palet 2 
Achtergrcjud 
Groen 
Rood 

Bruin (R+G) 



De achtergrondkleur in grafisch bedrijf 
is dezelfde als de SKiJmmBom^iiQjtm in de 
tekstmodes . 

In 640x200 pixel mode is er voor ieder 
pixel slechts 1 bit beschikbaar, dat per 
definitie als mi of Bchl^tgtmA wordt 
weergegeven . 

Van de grafische modes is tnog lets 
bijzonders te nelden: als je als 
gebruiker normale karakters wilt 
afdrukken op een grafisch scherm, dan 
hoef je niet zelf de diverse pixels uit 
t« hpctibe^fn: k»t fiOltoaa BIOS doet dat 
WSlicniitil^ Bits St van de call write 
chiPK^er' gebruik gemaakt wordt Het 
g0tit zelfs nog een stap verder Het 
systeem BIOS heeft ook een call die de 
gebruiker het karakter op de cursor- 
positie geeft (read character). Ook deze 
call werkt normaal in grafisch bedrijf. 
Beide calls werken natuurlijk wel veel 
langzamer dan in tekstmode, dat wel 

De 6845 van de CXJA kaart bevindt zich 
de I/O adressen 03)4 en 03D5. Op 03D8 
zit het mode register, dat onder andere 
de node (tekst or grafisch) van de kaart 
bqpaalt. Adres 0SSO9 bevat het klairOTre- 
gister waamee de rand/achtergrondkleur 
en de functie van het blink-bit bepaald 
wordt. 

Het videogeheugen bevindt zich op de 
absolute adressen B8000 t/m BBFFF, of 
nomaal geschreven: 8800:0000 t/n 



B800:3FFF. In de tekstmodes wordt h^t 
geheugen 'normaal' gebruikt: de 
karakters staan in ^zelfde volgorde in 
het geheugen als zij op het scherm 
vierschijnen . In de grafische modes 
treedt er echter lets geks op: de even 
lijnen staan in de eerste helft van het 
geheugen (B8000-B9FFF) , en de oneven 
lij^^" ?P ^® tweede helft (BAOQO- 

BBFFF). Het is even wennen 

In tegenstelling tot de HDA kaajpt 
heeft de OGA geen eigen clockgenerstor, 
maar wordt de door 4 gedeelde systeem- 
clock gebruikt. Omdat de CXiA een NTSC 
signaal kan opwekken met daarin een 
kleurdraagggolfrequentie van 3. 5735 
MHz, is de systeemclock daardoox' 

^^I^^JP •te^l'^lH mmBli». waarde van 
14 .318 mk . . till Dlooteenera- 

tor door dirie ^cteeltt Is de CCT.„clock 
daardoor 4.77 Wiz). 

Net als bij de MDA kaart zijn alle 
signalen naar de monitor TTL niveau, 
dus 1 of nul. De connector naar de 
monitor is weer een 9-polige D- 
cam^nsPlsr, net als pMMvetting: 

Pifl S^aal 

1 GND 

2 GHD 

3 Rood 

4 (ktomn 

5 Blauw 

8 Intensify 

7 Niet aangesloten 

8 Horizontal drive 

9 Vertioul drive 

Naast de D-connector is er ook een 
tulp-aansluiting, waarop het zogenoemde 
ccnoposiet video signaal aanwezig is. De 
diverse kleuren worden hierin voorge- 
steld door verschillende grijswaarden. 
Deze aansluiting kan g^ruikt worden on 
een analoge monochroom monitor of een 
monitor mtmsc decoder aan te sturen. 

Vdfdtt mitt de kaart mm nmsluitin- 

en mm <wa nodulator en een lichtpen. 
,wi «idn iiitgevoexd als rijtjes print- 
pinnm. 

Ctadat de OGA graphics kan weergeven, 
en omdat er kleur geproduceerd wordt, 
is de kaart uitgegroeid tot het 
standEiard display voor sipelletjes. In 
de professionele omgeving gaf men 
B»estal de voorkmir aan de raJA kaaxt. 

li— g rill 1 rii«p1«y 

Dat kan. Als men de adresbezetting van 
de kaarten bekijkt, dan blijkt er gean 
conflict te b^taen, zodat het geen 
bezwaar is on zc^l een MDA als een CQk 
kaart in 1 PC(/XT) te hebben. Ook het 
systeem BIOS ondersteunt beide kaarten. 
De schakelaartjes op het moederbord 
bepalen op welke kaart het video 
verschijnt na inschakelen. Het het DOS 
MODE commando kan in zo 'n geval van 
display gewisseld worden. Er zijn e&n 
paar pakketten in de handel die een 
dergelijke twee-scherm configuwitie 
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ondersteunen : het grafische (kleuren)- 
plaatje op de CGA kaart en de foutmel- 
dingen en andere tekfctmededelingen cxp dm 
MDA kaart. Dit heteOt een snellef© 
werkmg tot gevolgi mm. hoeft dan niet 
net grafisoh scherli"^ saven, de kaart 
an tekst mode zetten, een mededeling 
printen, wachten op een toets en 
veryolgens wee# hefe- ipraf ia^» i^mm op 
te bouwen. 

5.5. De HerailftF; kaart. 

Het ontbreken van een grafische mode op 
de MDA kaart was voor de Amerikaanse 
f irma Hercules aanJeidii« <» ©en kaart 
te ontwerpai die het Wt Monochrome 
scherm kon aansturen in een graf isahe 
mode De resolutie werd 720x350 pixels 
Ctadat dit in totaal 252000 pixels zijn, 
oFml 31500 bsrtes, was een aanzienllik 
groter video geheugea dan bij de IffiA 
kaart nod ig. De Hercules kaart heeft dan 
^'^i' . '^RX^P. videogeheugen, opgebouwd 
met 64kxl DRAM chips Ook Tier wordt de 
refresh verzorgd door het periodiek 
uitlezen van het geheugen. Een bit in 
het mode register bepaalt we Ike van de 
twee mogelijke schermen getoond wordt 

De kracht van de Hercules kaart ligt in 
het feit dat de kaart in tekstmode 1:1 
conqpatibel in met IBM's MDA kaart. Ook 
het videogeheugen levert in grafisch 
bedruf (HALF mode) geen conflict op net 
2S«S^,^!SE*^= loopt van B00(» t/m 

BTFfP <BODO:0000 - BOOOrTFFF). 

Wil men ook de tweede helft gebruiken 
dan IS er wel een conflict met de CGA 
kaart: het geheugen loopt dan van BOOOO 
t/m BFFFF. De laatste mode wordt FULL 
mode fenoemd, en wordt slechts zelden 
gebruikt. Na inschakelen staat de kaart 
altijd in de MDA-compatibele tekstmode. 

De kaart is verder voorzien van 
dezelfde pxnterpoort als -ttb- oor^rcartke- 
lijke MDA kaart 

De Hercules kaart is zo populair 
geworden, dat het de sfcandaard voor 
monochroom displays op PC'S is. ondanks 
net feit dat im geen aandacht aan de 
kaart besteedt, &i zelfs in latere 
productarv geen Hmsmijm easlatie 
aanbiedt 

5.6. De BRA kngrt,. 

Eigenliok valt deze kaart een beetje 
buiten het bestek van dit verhaal, chdSkI 
deze kaart tegelijk met de 40* is 
gemtrcxiuceerd. Ook wordt de lift kaart 
wemig gebruikt in PC(/XT)*s vantfege de 
b^perkte prestaties van aesB machines 
D^cMD een kogrfc Qv»Kaii*t 

BSA staat vo&t Bihanced Graphics 
Adapter, hetgewi aangeeft dat de kaart 
mag worden gezien als een sterk ver- 
beterde en uitgebreide CGA kaart. Om te 
tegmnen overlapt de EGA zowel MDA als 
OEiA in mogelijkheden: alles wat deze 
kaarten kunnen, kan de EGA kaart ook, op 
dezelfde monitor (dus kleur in OGA modes 
m Bonoc^irooe in de HDA node). Zelfs de 



dat ook de CQk 
15.75 KHz geen 
zodat ook ^ OGA 



resolutie dan 

het geheugen 
standaard 64 
bijna altiqd 
bankswitched . 



adressering van de CRTC en het videoge- 
heugen verandert afhankelijk van de 
mode naar dezelfde adressen als bij CGA 
reject ievelijk MDA. Maar er is meer. 

Naast de reeds bestaande modes zijn er 
ook spyciale EGA modes aanwezi^. Tn 
tekst kan de EXJA kaart ook 80x25 in 
kleur weergeven met een kwalite:t die 
vergelijkbaar is met de MDA mode. 
Hiervoor is wel een speciale EGA 
monitor nodig die de nieuwe lijnfre- 
quntie van 21.5 kHz ondersteupt. in 
dergelijke monitor wordt van oxlsher 
zodanig uitgevoerd, " " 
lljnfr equal tie van 

problems op levert, . 

modes bekeken kunnen worden. 
In graphics heeft de EGA een hogere 
OGA: 640x350 pixels. Ook 
is groter in EGA mode: 
kbyte, maar tegenwoordig 
de maximale 256 kbyte, 
„...w r ^® laatste hoeveel- 

heid VRAM kan de EGA kaart ook bij de 
hoogste resolutie nog 16 kleuren 
weergeven . 

De monitor wordt nog steeds in TTL 
asngestuurd, maar heeft nu twee stel 
RGB lijnai: primary en secondary Ri^. 
Met zes lijnai kun je 64 combinaties 
maken: in tekstmode zijn er inderdaad 
64 kleuren mogelijk. In graphics mode 

15 het palet in tegenstellxng tot de 
CGA kaart nu wel programmeerbaar zodat 

16 van in totaal 64 klewran vrlj 
gekozen kunnen worden. 

Verder heeft de EGA kaart een gra- 
fische mode voor de monochrome monitor 
met een resolutie van 840x350 pixels. 
De standaard IBM EGA orolersteunt de 
Hercules mode (uiteraard) niet, de 
meeste klonen van de EGA kaart doen dit 
echter wel, 

Zpals ,^§1^ opganerkt is de adresse- 
rii^ In Cm m MDA modes gelijk aan die 
van de oorspronkelijke kaarten. In de 
EGA modes zit de CRTC op de adressen 
03C4 en 03C5 (dus precies tussen de MDA 
en OGA adressen m), en bevindt het 
yideogeheug en z ich op absoluut adres 
AOOOO t/m AFFFF. Is er meer dan 64 
kbyte videogeheugen, dan is het 
bankswitched . 

Het gedrag na power-up wordt niet 
bepaald door schakelaars op het moe- 
derbord, maar door een viertal schake- 
laartjes op de EGA kaart zelf . 

r^S ^L^^^ zijn eigen video 

RCM BlC^dat nagenoeg alle kunstjes die 
de kii^rt beheerst ondersteunt, Omdat 
net geheugen in EGA mode zo groot is, 
IS het ook mogelijk het tekstveld 

froter te maken: zo kan een EGA kaart 
32x43 tekst op een EGA of monochrome 
monitor laten zien. 

De CGA en MDA zijn eigenlijk alleen 
maar 1 op 1 gekopieerd door het Verre 
Oosten. De EGA kaart daarentegen is 
uitgebreid onderwerp geweest van 
uitbreidingen, die zich mestal in de 
richting van hogere r^mluties bewog^: 
sso zi^ er een groot ewital kaart^ op 



de markt die resolut les van 800x600 of 
zelfs 1024x600 bieden Het probleem is 
dat de toepassingssoftware dit meestal 
niet kan gebruiken. of pas na de 
installatie van een speciale driver, 
terwijl de meeste EGA Bonitoren noetl^ 

resoluties 

840 pxxels horisontsal 



Oian we zpals belooftl de andere zLjde 
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Get alien (Peel 5). 

Door Gert van Opbroek 
Bateweg 60 
2481 AN Vembrttgge 

In ie v«e«f«ttiide af leverlngen Is een 

pakket subroutines afgedrukt voor de 
vier basisf uncties voor het rekenen met 
floating point getallen. In deze af leve- 
rinig worden een aantal conversle-rou- 
tlMit' lMiuiBiel.d« 

Converale van een integer naar real. 

De eerste routine die afgedrukt Is, is 
een conversle van een geheel getal (In- 
teger) met een lengte van 4 byte naar 
em IEEE single p1rttel«l«M floating point 
getal. Hierblj wordt de integer op de 
top van de stack vervangen door een 
real • 

Dese routine is de eenvoudlgste van de 
eoaveraitf-rootinee* in eerste instantle 
ilOVilt het ti^en v«n het gehele getal be- 
paald aan de hand van het voorste (MS) 
bit* Is het teken negatlef, dan wordt 
dit onthouden waarna het getal positief 
geaaakt wordt. Door het (negatleve) 
get»l van nul ai ee trtidieA. ^- ' 

De tweede stap gaat als volgt: Het 
grootste (positieve) gehele getal is 2 
tot de macht 31-1. Dit is het getal: 

oiHuii niniii iinnn luuiu 

Door nu de Integer in een 4 byte mantis- 
sa te stoppen en In de exponent 32 (-•■ de 



bias) te schrijven, krijgen we een niet 
genormeerd floating point getal net de- 
zelf de waarde als de absolute waacde van 
de integer. »et getal mm4%, iftii genor- 
meerd door de mantissa ad vaiic te schui- 
ven dat er aan de voorkant een 1 uit 
schuift. Bij elke fchuif operatie wotdt 
de exponent met 1 verlaagd. 

De laatste stap bestaat uit het toevoe- 
gen van het teken en het in het juiste 
formaat zetten van de mantissa en expo- 
nent . 

Coaversle van 9m Te^l naar em integer. 

Bij de coHi'lKIIPlie— routine van een real 
naar een integer wordt de real op de top 
van de stack vervangen door een integer. 

In deze conversie-roul^liie iiOr^ esgfikt 

fetest of er een integer ontstaat die in 
byte opgeslagen kan worden. Dit bete- 
leent dat de exponent tussen 0 en 31 moet 
llggen omdat een genormeerd floating 
point getal altijd tussen 0 en 1 ligt. 
Mocht dit het geval zljn, dan wordt er 
verder geriribBad. 

Hiema wordt de omgekeerde bewerking van 
de vorige routine uitgevoerd, de mantis- 
sa wordt zolang geschoven en de exponent 
verhoogt totdat de exponent) f«iijk is 
aan 31* Merna wordt , hl|; ««n i$eg«tief 
getal, het complement gen^wm. 

10 to de macht een getal. 

Deze routine is eigenlijjk alleen bedoeld 
voor intern ge]»ruilbjCl>j leant namlijk 
geen enkele beveiligl^gr tegen overflow. 
Het is zelfs niet gedeflnieerd wat de 
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routine doet als het resultaat van de 

Deze routine kan het floating point 
getal berekenen dat de tlenmacht van de 
ingevoerde integer is (dus 100 als re- 
suX^aat van de parameter 2)« Voor dese 
rddtiiie iFto^rlt gebruik gemaakt van de 
constanten 10 (10*1), 100 (10*2), 10000 
(10^4), 100000000 (10-8) etc. Afhanke- 
lljk van de bits die geset zljn In de 
integer worden deze constanten al dan 
nlet met elkaar vemenigvulijl^d* Puai 

10*43 - 1® * 1€>OO10O1 - 10*1 * 10*4 * 
10*8 

{ * * t 0£ 4btL aiK^f ) • 

De 10-logarlthme van een getal. 

Deze routine is de Inverse van de voor- 
gaande. Hlerblj wordt bepaald wat de 
grootste macht van 10 is die in het 
(posltleve) getal voorkomt. Bovendlen 
mxdt de rest (fractle) bepaald. 

Deze routine werkt voor zowel getal len 
groter dan 1 (posltleve machten van 10) 
als voor getal len kleiner dan 1 (nega- 
tleve nachten van 10). De rest ({ractle) 
wordt 4« ftC'fit«s^ei.«t«n« de 

macht ^wm 10 la emn vaciidM»}.« op pigina 
0. 

Voor getallen groter dan 1 wordt door 
mlddel van proberen bepaald door welke 
10 mtkchtrnvk h«t fetal deelbaar is, Dit 
liet^raat dat het versultaat van de deling 
groter dan of gelijk aan 1 moet blljven. 
Bij getallen tussen 0 en 1 wordt door 
mlddel van vermenigvuldlgen gekeken wel- 
ke machten van 10 blJ vermenigvuldlgen 
mn rewltaat kleiner dan 10 opleveren* 
Door in de variabele op pagina 0 deze 
machten bij elkaar op te tellen en even- 
tueel het complement te nemen, krijgen 
we het resultaat van de logarithme. 
Datgene wat we aan het elnd van dO be- 
werking over houden is de fractie. 

Conirersie vm mmm z«al naar taeii.* 

De bovenstaande routines zljn hulprou- 
tines voor de eigenlljke conversie- 
routines* Pe leer^te routine die behas-' 
deld wordt is de af drukroutlne. Deze 
routine drukt nlet zelf het getal af, 
maar geeft In een buffer een zogenaamde 
characterstrlng die eventueel aan een 
print routine doorgegeven kan worden* Ibet 
startadres van deze string kan men in 



een variabele op pagina 0 schrijven. Het 

resultaat van de conversie wordt dan in 
d t buffer geschreven. Dit buffer dient 
1h byte groot te zljn, waarbij in het 
14e byte altljd een elnd-teken (in dit 
geval ascll 0) geschreves wmM* Verier 
Is het resultaat altijd in het volgende 
formaat weergegeven: 

1) Een teken of een spatie 

2) Een cljfer 

3) De decimale punt 

4) 2e8 djfers 

5) De letter E alt aanduiding van de 
exponent 

6) Het teken van de exponent 

7) Twee clifers voor de exponent 

8) Een afaluitteken 

Het floating point getal staat op de 
stack en gaat bij de coaveraie verlores. 

In de routine worden eerst enkele blj- 
zondere gevallen onderzocht. Dit zijn de 
geval len positieve en negatieve overflow 
(+ en - oneindlg), positieve sn nega- 
tieve underflow, het getal 0 en de aan- 
duiding voor Mot ▲ Kn^r. 

Nadat deze byzondere gevallen afge- 
splitst zijn en het teken ingevuld is in 
liet uit voerbuf f er, wordt de 10- loga- 
rithme bepaald. Dit levert in de eerste 
plaats de 10-exponent van het getal op. 
Bovendlen is het resterende getal (de 
fractie) een getal tussen 1 en 10 (1 
tMtegerekend, 10 nlet). '9mmil§mi wordt 
een kopie van deze fractie geconverteerd 
naar een Integer. Dit levert een van de 
cijfers 1 t/m 9 op waarvan het bljbeho- 
rende ascii-teken in het buffer geschre- 
ven wordt. Vervolgens wordt dit getal (1 
t/m 9 dus) teruggee^ireiteerd naar een 
f l&ating point getal en -van de fractie 
afgetrokken. Daarna wordt het resultaat 
hlervan met 10 vermenlgvuldlgd. Op deze 
manler krijgen we een getal tussen 0 en 
10 waarvan een kopie weer omgezet wordt 
naar een Integer etc. Dit werdt een 
aantal keren berhaald. 

De decimale pugftl Staat na het eerste 
cljfer. 

Als we voldoende ciif era op deze manler 
b«rekend hebben, gaan we af rondem. We 
berekenen altijd een cljfer meer als het 
aantal dat we af willen drukken. Is dit 
cljfer een 5 of hoger, dan wordt het 
laatste cljfer met 1 verhoogd. Was dit 
voorlaatste cljfer e«» 9» #liBft mtM bet 
een 0 en wordt het voor^voorlaatste 
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cljf er met 1 verhoogd. Dlt kan zo door- 

5aan tot het voorste djfer. Als dlt een 
is en het moet ook verhoogd worden, 
dan moet het hele getal een posltle 
opgaftchovea wov4«n en moet de (10-) 
^mp^m^ ittt I «#t1toogd worden. 

Na de afrondlng wordt de exponent (posi- 
tief of negatief) ongezet naar twee clj- 
fers en, met het teken, vastgelegd in 
h«t ultvoerbuf fer. 

Als laatste wordt bet ult voerbuffer 
afgesloten met een ascil-nul. 

Conversle van aseil naar real. 

Aiy ' 'laaeii^ ic-mmm iti ' 'd^ef ai levering 
l8 de uSl^ierroutlne opgenomen. Deze 
routine I'eest nlet zelf een getal In, 
maar verwerkt een ascll-strlng In een 
Invoerbuff er. Op paglna 0 wordt het 
startadres van dlt huHwr ingevuld an 
het ingelezen getal wordt over de stack 
teruggegeven. Het getal In het invoer- 
buffer moet afgesloten zljn met bljvoor- 
beeld een ascll 0. 

Een floating point getal moet aan be- 
paal^li f «na»C«fegel« voldoen. Deze re- 
gels stam In het comment aar van het 
programme opgesomd. Mocht het getal nlet 
aan deze regels voldoen, dan wordt de 
constante NAN (Not A Number) teruggege- 
ven. 

De conversle self Is vrlj rechttoe 
rechtaan. De lettertekens die het getal 
vormen worden een voor een ingelezen en 
verwerkt. Dlt kan In de eerste plaats 
een plus- of mintekei^ slln* Hordt ar 
gmtm teken opgege^itt, 'datt'lli^-'fctt^jgvtari 
positlef . Meer dan een teken is niet 
toegestaan. Hlerna wordt de mantissa 
ingelezen. Deze mantissa bestaat ult 
cljfers en hooguit een decimale punt. De 
iagelecen cljfers worden stuk voor stuk 
orageset naar een integer tussen 0 en 9 
(grenzen inclusief ) en opgeteld bij wat 
we al verzameld hadden maal 10. Op deze 
manier krijgen we dus een integer die de 
waarde van de mantissa aangeeft. Voor 
elk cijfer in de mantissa dat i^ter de 
daeSaal e potnt at aat , iifmdi 'm ( 1 0*-) 
eiipoiteat wiH,.,!, ym^umi0i* 

De lO-exponent wordt Ingelezen, ultgere- 
kend en gecorrigeerd voor de cijfers 
ai^er de deciaale punt. 

Met belntlp nam de conversie-routine van 
Integer naar floating point getal, wordt 



<^ ; lO-mantissa omgezet naar een floating 
point getal. De exponent wordt omgezet 
I t behulp van 10 tot de macht X. Was de 
IQ-tm^mnt positlef, dan worden de twee 
floating point getal len met elkaar ver- 
menlgvuldigd, was ze negatief, dan wordt 
de mantissa gedeeld door de exponent. 
Tenslotte wordt de stack in orde ge- 
maaktii - ' 

Diverse opaetklngen. 

De tot nu toe gepubllceerde routines 
vormen samen een baslsset voor floating 
point operaties. Het is waarschijnll jk 
zinvol deze routines nog eens uit te 
breiden met routines voor machtsverhef- 
fen, trigoniometrlsche functles etc. 
Momenteel heb ik nog niet de rekensche- 
ma's (algorithmen) voor deze functles. 
Wei heb Ik een nieuwe ref erentie hier- 
voor en waet ik een bibllotkatk in Ne- 
derlaed tratar ik het betreffendte tioek kan 
lenen. Als Ik nog eens tijd en zin heb, 
ga ik ze misschien ook nog wel eens een 
kc»r mdkim» 

Een tweeda o|i«iSiiting betref t de gepubll- 
ceerde programmatuur. Ik heb me blJ het 
schrijven van de programma's geconcen- 
treerd op de werking van de routines. Ik 
heb me nlet druk gemaetkt over optimali- 
saties met betrekking tot snelhetd en 
geheugengebruik. Ik denk dat er nog wel 
wat optlmalisaties mogelijk zijn en met 
name het intensieve gebruik van de pro- 
cessorstack is misschien lets dat veran- 
derd moet worden. De 6502 heeft name 11 jk 
slechts een stack van 256 byte en als we 
parameters via de atack door gaan geven, 
#11. schaarste gaan geven op 

de'ilill^ftij berekeningen met haakjes 
komt er bljvoorbeeld voor elk niveau een 
getal van 4 byte op de stack te staan, 
samen met een retum-adres. Verder heb- 
ben de routines self sons ook nog wel 
enkele bytes stmdk-tvi.wttm ttodig. 

iTerder zijn er enkele zaken die specl- 
flek op mijn systeem slaan. In de eerste 
af levering heb ik de routines geassfflnr 
bleerd naar adres $0200. Toen het sy- 
steem echter groter werd, bleek ik daar 
onvoldoende rulmte te hebben. Op mljn 
systeem zijn daar alleen de paglna's 2 
t/m A vrlj; 5 t/m 7 zijn voor het opera- 
ting systeem en vanaf pagina 8 zltten de 
Junior eproms. Kortom, zoals de routines 
afgedrukt zija, kunnen ze dns niet op 
Sdjn systeem draaien. Ik heb daarom ook 
stafdff voor het testen een ander stuk 
gehe«#nt g<ibviilkt maar hmbt^ .m iifie 



artlkelen uniform te houden de versle 

die afgedrukt zou gaan worden geassem- 
bleerd naar $0200. hoe het op andere 
systemen zit weet Ik liet, i#4eeiail- 
dat zelf moeten bekljicen. 

Een tweede punt is het gebrulk van pagl- 
na 0. Op mljn systeem Is paglna 0 bljna 
helemaal ongebrulkt. Ik weet dat op 
andere systemen paglna 0 wel eens wat 
vol is. Ook op dlt punt moet het pro- 
granmia mogelljk aangepast worden voordat 
ze op een ander systeem kan draaien. Het 
is volgens mlj zonder meer mogelljk een 
aanzlenlljk deel van de klad-varlabelen 
elders in het geheugen te leggen. Alleen 
die variabelen die bij een indli^ecte 
addressering gebrulkt worden, M»fM^ la 
paglna 0 blljven llggen. 

Tenslotte, wat kunne& wv iM^t 41t f ioa*- 
ting point pakket? 

Wel, een heleboel. In de eerste plaats 
sou er een prograauna gemaakt kunnen 
worden waaraee de coaput#r «X« r4eken- 



machine gebrulkt kan gaan worden. (Heeft 

u wel eens geprobeerd op een computer 
c n slmpel rekensommet j e ult te reke- 
nen?). Verder denk Ik dat het mogelljk 
moet zijn, be|, flpatlog point pallet In 
de taaS -ioirt^)^t'e-^t^«g-ter«««i'!.4r'li«^ 
al eens een keer gedaan en hoop dlt ook 
voor dlt pakket nog eens te gaan doen. 
Daarmee wordt naar mljn menlng de taal 
Forth die op zich al krachtig is, nog 
een stuk krachtlger* 

Tenslotte nog een opverfclng 'over de 
verspreidlng van het programma. Het 
programma is ontwlkkeld op mljn Senior, 
een machine die maar weinig clubgenoten 
zullen hebben« Ik zal de sources echter 
op het bttll,«tln board ter beselt^lc^lag 
stellen en mogelljk zljn er dan bezlt- 
ters van andere systemen die de moeite 
nemen de routines te converteren naar 
andere systemen. Als u geen modem hebt 
en toch graag een kople van de routines 
wilt hebben, aeem dan even contact met 
me op, dan zoeken we naar een oplosslng 
want het overtikken van +/- 1600 regels 
source is in natuurlijk echt niet nodig. 
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0873 

0874 

0875 

0876 

0877 

0878 

0879 

0880 

0881 

0882 

0883 

0884 

0885 

0886 

0887 

0888 

0889 

0890 

0891 

0892 

0893 

0894 

0895 

0896 

0897 

0898 

0899 

0900„ 

0901 



05F5 
05F5 
05F5 
03F5 
05F5 
05F5 
05F5 
05F5 
05F5 
05F5 
05F5 
05F5 
05F5 
05F5 
05F5 . 

05F5 

05F5 
05F5 

05F5 BA 
05 F6 AOOO 
05F8 .BD0301 TQFLl 
05FB 990700 , I" 
05FE E8, .ii.jav «?a 
05FF C8 3 js<);;s 
0600 C004 ,afts 
0602^; imh,^U. r-: 
0604 ,3 f?^.«i,„i ; 

» 
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Floating point package for the 6502 mlcroprocesBor Part 111 

Written by G. vn Opbroek 
on JUNIOR with Proton Senior DOS 

ms§ll%$ht 1989 Kip 6$bntlk«f«ejlwb |l«4«irlaad 

Conversion of a 4 byte LONG INTEGER to a single 
precision IEEE floating point number 

Based on: Hagen Volzke FliesskcMma - A^pLtluptll^ und . . r 



FLTOF 




TSX 

LDY iS*0 

L|?A„$Q1Q0+3,X 
StA MAN2^¥ 

INX 
INY 

CPY #4 
BNE TOFLl 



■am l« $uun a i s sa i » -a s • 



i Store Integer In 
; Get four 



0&04 



4^ 
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0902 
0903 
0904 
Ot05 
0906 
0907 
0908 
0909 

0911 
0912 
0913 
091A 
0915 
0916 
091 1 
0918 
0919 
0920 
0921 

0923 
0924 

0925 

0926 

0927 

0928. 

0929 

0930 

0931 

0932 

0933 

0935 
0936 

0937 
0938 

093.9 
0940 
09A1 
0942 
0943 
0944 
Ol45 
0946 
0947 
0948 
0949 
0950 
0951 
69S2 
0953 
0954 
0955 
0956 
0957 
0958 
0959 
0960 



0604 
0606 
0608 
06 OB 
06 OC 
06 OE 
06 OE 
06 OE 

miM 

06 OE 
0610 
0613 
0615 
0616 
0618 
061 A 
061 A 
061C 
061E 
06 IE 
0620 
0622 
0624 
0626 
0626 
0626 
0626 

ma 

0627 
0629 
062B 
062E 



0632 
0634 
0636 
0636 

0638 
0638 

0638 
0638 
0639 
063B 
063D 
06 3F 
0642 
0644 
0644 
0644 
0644 
0646 
0649 
064C 
06 4D 
064F 

0651 
0653 
0655 



A900 
A004 

990200 T0FL2 
88 

lOFA 



LDA #00 
LDY #4 
STA MANl ,t 
DEY 

EPL T0FL2 



I $ bft« 



Test INTEGER for zero; When yes, 
result is zero too 



A003 
B90700 T0FL3 
D005 
88 

10F8 
3035 



A99F 
8505 

A50A 
1016 
A901 
8506 



fon 



LDY #3 
LDA MAN2,Y 
BNE TOFl 
DEY 

BPL T0FL3 
BMI TOFRET 

LDA #127+32 

STA EXPl 

LDA MAtI2+3 
BPL T0F2 
LDA #1 
STA SlGNl 



; Teet fcNir byte 

. <> 0 — > Contiitue 

i X^&eger !• s«ro — > Bcaait ie zero 

; &q>oaeat bias 32 (blt> 



; HS-byte of the integer 

; Int^er is positive 

I lltffltiitt integer; sem sipi 



Integer is negative, get 2's coBq>leiaent 
by sttbtrecting the integer froM zero 



3d 

AOOO 

A900 T0FL4 

F90700 

990700 

m 

C004 
D0F3 

900C 



18 T0F2 

C605 T0FL5 

A004 

A207 

200002 

90F5 



SEC 

LDY #0 
LDA #0 
SBC MAN2,Y 
STA MAN2,Y 
INY 
CPY #4 
BNE T0FL4 

BCC T0F3 



I Cerry is clear — > number is 
; already aeraallsed 



nwriier by shifting wttil, eamry is iiit 



CLC 

DEC EXPl 
LDY #4 
LDX #<MAN2 
JSK BOTLEF 
BCC T0FL5 



; Decrement expooeat 
; Rotate 4 byte 



; IF Carry clear, continue shifting 



Copy result to MANl (3 byte) 



A002 T0F3 

B90800 TOFU 

990200 

88 

10F7 



tOFRET 



A205 
A004 
200702 



LDY #2 

LDA HAN2+1 ,Y 
STA MAMl ,Y 

DEY 

BPL TOFL6 

LSR SIGNl 
LDX #<MA»l+3 
LDY #4 
JSR BOTRIG 



; 3 byte 

: MS-byte is in EXF2 



Get sign bit 

Shift in sign bit 
Rotate 4 byte 



2i 
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0961 
0U2 
0963 
096A 
0965 
0966 
0967 
0968 
0969 
0970 
0971 
0972 
0973 
0974 
0975 
0976 
0977 
0978 
0979 
0980 
0981 
0982 
0983 
0984 
0985 
0986 
0987 
0988 
0989 
0990 
0991 
0992 
0993 
0994 
0995 
0996 
0997 
0998 
0999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1616 
1017 
1018 
1019 
1020 



0658 



0658 

0658 

0659 

065B 

065E 

0661 

0662 

0663 

0665 

0666 

0666 

0666 

0666 

0666 

0666 

0666 

0666 

0666 

0666 

0667 

0669 

066C 

066F 

0670 

0671 

0673 

0675 

0675 

0675 

0675 

0677 

0679 

067A 

067C 

067E 

0681 

0681 

0682 

0684 

0686 

0688 

0688 

068A 

068A 

068C 

068E 

068E 

068F 

0691 

0693 

0695 

0698 

0698 

069A 

06 9C 

06 9C 

06 9C 

069C 



; Save result on stack 



BA 
A003 

B90200 T0FL7 

^0601 

CA 

88 

10F6 

60 



TSX Get stack pointer 
LDY #3 ; Save 4 lyjrte 



LDA MANl ,Y 
SfA 1iil00^,X 
DEX 
DE¥ 

BPL T0FL7 
STS 



; Get byte 



Conversion of a single precision IEEE floating 
number to a 4 byte LONG INTEGER 

Based on: Hagen Volzke Fliesskoimna - Arithmetlk und 
lEEE-Speztf iOdkti^Mi 
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BA 

AOOO 

BD0301 

990700 

E8 

C8 

C004 

D0F4 



FFTOL 
TOLLl 



TSX 

LDY #0 

LDA $0100+3 ,X 
STA mSZft 

im 
rst 

CPY #4 
BNE TOLLl 



; Get the stack pointer 
; Byte ccMister 

I Store Ham 'ift 



; Get four itytmB itmn tlm at*^ 



; Rotate floating point nunber to get result in one bft« 



Clear sign byte 2 



A900 




LDA 


#0 




850B 




STA 


SIGN2 




18 




CLC 






A207 




LDX 


#<MAN2 


i 


ACQS 




LDY 


#5 


« 


209002 


• 


J8& 


SOILEF 




38 


* 


SEC 




• 

t 


A50A 




LDA 


<EXP2 




E97F 




SBC 


#$7F 




850A 




STA 


EXP2 




3045 


. > 
• 


BMl 


TOLZER 


i 


C91F 


• 


CMP 


#31 


i 


104D 


• 


BPL 


TOLOVL 


I 


38 


I 


SEC 






A204 




LDX 


#4 


» 


A209 




LDX 


#<MAH2+2 




A003 




LDY 


#3 


i 


200702 


* 


JSK 


SOTRIG 


$ 


A900 


> 


IMk 


m 


■ ■« 
9 


8506 




mi 


S16N1 


m 



Zero page relative address 
5 ityte 



; Subtract l»i«B froa the ei^ooeat 



Lve ei^ooeiKi )ees«It Is zero 

Exponent >» 31 
Yes, — > overflow 

A normalized number, W% im ft «ae 
4 byte ' - ' 



Rotate saatlssa ^ ' 
LS byte beeoses itii^ 



18 



; Rotate tHOttlssa right until exponent «■ 31 
T0LL2 cue ; Shift in zero 



kummm 
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1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 



1068 
1069 

1070 
1071 
1072 
1073 
lOH 
1075 
1076 
1077 
1078 
1079 
1080 



069D 
06 9F 
06A1 
06A4 
06A6 
06A8 
06AA 
06AC 
06 AC 

06B0 

06 BO 
06 BO 
06 BO 
06B1 
06 B3 
06B5 
06B7 
06 B9 
06BB 
06 BD 
06BE 

mm 

06C1 

06C1 

06C1 

06C1 

06C2 

06C4 

06C7 

06CA 

06CB 

06 CC 

06CE 

Q6Cr 

06CF 

06 CF 

06CF 

06D1 

06D3 

06D6 

06D7 

06D9 

06DB 

06DB 

Q6PB 



06DD 
06DF 
06E1 
06E3 
06 E5 
06jg7 
06B7 
06 E9 
06 EB 
06 EB 
06EP 
'M'lO 
06F2 



A209 

A004 

200702 

E60A 

A50A 

C91F 

BOfO 

A50B 
FOll 



LDX #<MAN2+2 
LDY #4 
JSR R0TR16 
INC EXP2 

LDA EXP2 
CMP #31 

mm maa 



TOLRET 



LDA sum 

BEQ TOLRBI 



t Mttttt 4 byte 

; Increnent exponent 

; Get exponent for test 

; Exponent 31 ? 

; m — > ettiiliiDue sliif ting 

; Get sign 

; Positive 



Ccmstcuct 2' 8 coBvleaent 



38 SEC 

A004 LDY #4 

A206 im #<MAN2*t 

B500 T0LL3 LDA $00, X 

49FF EOR #$FF 

6900 ADC #$00 

9500 STA $00 ,X 

E8 INX 

88 DEY 

IW BNE T0LL3 



Save result on stack 



Set carry to add I to result 

negate 4 bytes 
Start at LS-byte 
Get byte 
Negate byte 

Add 1 t« SMWlfe 

Store c«Mi»lMwiit 



BA TOLREl 
A003 

B90600 T0LL4 

9D0601 

CA 

88 

10F6 

60 



Wt #3 

LDA MAN2-1 ,¥ 
STA $01 00+6 ,X 
DEX 
DEY 

BPL TOLU 
RT8 



; Get stack pointer 
; Save 4 byte 
; Get byte 



&!ro result 



A900 TOLZER 
A003 

9906011.4^5 

88 

lOFA 

30E6 



LDA #0 
LDY #3 

STA lljUI2-l,Y 

DEY 

BPL T0LL5 
BMl TOLREl 



Clear 4 byte 



Overflow (positive or aegetlve) 



TOLOVL 



A9FF 

8506 
8507 
8508 
A980 
8509 

A50B 

wm 

A003 

S9Q600 T0LL6 

mm 

990600 



LDA #$FF 
STA MAN2-1 
STA MAN2 
STA MAN2+1 
LDA #$80 

sli MimiiH 

LDA SIGN2 
BNB fOLSEl 

LDY #3 

LDA MAN2-'l ,Y 
EOR #$FF 
SfA liAN2-l,Y 



Maxlnt " $7F $FF $FF $FF 



Result > 0 ? 
Yes» return 

Negate « bytes —> mntm 
Negate — > I's conq;>lement 



19 
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1081 


06F5 


88 


1082 


06 F6 


10F5 


1083 


06F8 


30C7 


1084 


mwk 




1085 


06 FA 




1086 


06 FA 




1087 


06 FA 




1088 


06 FA 


00 


1088 


06 FB 


00 


loss 


06FC 


80 


1088 


06 FD 


3F 


1089 


06 FE 


00 


1089 


06FF 


00 


1089 


0700 


20 


1089 


0701 


41 


1090 


0702 


00 


1090 


0703 


00 


1090 


0704 


C8 


1090 


0705 


42 


1091 


0706 


00 


1091 


0707 


40 


1091 


0708 


1€ 


1091 


0709 


46 


1092 


070A 


20 


1092 


070B 


BC 


1092 


070C 


BE 


1092 


Q70D 

mm 


4C 


lots 


CA 


1093 


070F 


IB 


1093 


0710 


OE 


1093 


0711 


5A 


1094 


0712 


A£ 


1094 


0713 


C5 


1094 


0714 


SD 


1094 


0715 


n 


1095 


0716 


00 


1095 


0717 


00 


1095 


0718 


80 


1095 


0719 


7F 


1096 


071A 


FF 


1096 


071B 


FF 


1096 


071C 


FF 


1096 


07 ID 


7F 


1097 


071E 




1098 


0019 




1099 


0019 




lioo 


OOIA 




1101 


OOlC 




1102 


OOIE 




1103 


0020 




1104 


0020 




1105 


0021 




1106 


0022 




1107 


0023 




1108 


0024 




1109 


0025 




1110 


0025 




Ull 


0025 




1112 


%P 




1113 


0025 





BPL T0LL6 
BMl TOLREl 

; Oefiiie •^m constants 

pIot ; Table vltli poifers of 10 

ClEO .BYTE $00,$00,$80,$3F; 1 



ClEl .BYTE $00,$00»$20,$41; 10 



Cim *MTE $00,$00,$C8,$42; 100 



C1E4 .BYTE $00,$40,$1C,$46; 10000 



C1E8 .BYTE $2Q,$BC,|1S«#4C; lOOOQOm 



elite $cA,$iB,$0E,$5A: loammmmmmo 



C1E32 .BYTE $A£,$C5,$9D,$74; 100000000000000000000000000000 



COVL .BlfE $Q0,$00,$80»$7F; Positivvi outflow 



mm .BYTE $FF,$ff ,$fF,$7F| Jtet A iM«V 



EXSAVE 
POINTI 
FOUTPU 
FINPUT 

EXPIO 

Goimio 

COUNCV 
TWOPX 



.EXl 

*-*+! 

*-*+2 

*-*+2 

*-*+! 

*-*+l 

*-*+! 
*»<N-1 



NMASK=%00000001 
EliMASK*%00000010 
0|fA^K«%OOOOOlOO 
iMASKwZOOOOlOOO 



; 10-exponent 

; Pointer to a floating point number 

; Pointer to output buffer 

; Pointer to input buffer 

; Power of 10 

; Digit eountet 

; Fli^s for coaveirslsn 



; Foiier of 10 Is vmgativm 
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IIU 
1115 
1116 
1117 
1118 
1119 
1120 
1121 

nn 

1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 

%m 

1147 
1148 

1149 
1150 
1151 
11^ 
11S3 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 

im 

1165 
1166 
1167 
1168 
1169 

1170 
1171 
1172 



071E 
071E 
071E 
071E 
071E 
071E 
071E 
071E 

mi% 

071E 
071E 
071E 
071E 
0720 
0722 
0724 
0726 
0728 
0728 
072B 
07 2C 
07 2D 
07 2F 
072F 
072F 
07 2F 
0730 
0733 
0735 
0737 
0738 
073A 

mm 

073E 
0740 
0742 
0744 
0744 
0744 
0744 
0746 
0748 
0748 
0748 

mm 

074A 
074C 
074D 
074E 
0750 
0750 
0750 
0750 
0753 
0756 
0756 

07 58 
0759 
075A 



.EXl 

; FIOPX: 10 to the power X —> Result - float 

; X Is a 4 byte Integer small enough to get a correct result 

; Based on: Hagen Volzke FliesskoHUi - Arlthaetik uad 

; lEEE-Spezif ikation 
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Initialise on IBO 



A003 
A9FA 
851A 
A906 
851 B 

B9FA06 

48 

88 



FIOPX 



FlOPXl 



LDY #3 
LDA #<C1E0 
STA POINTI 
LDA #>C1E0 
STA POlNTl-i-l 

LDA C1E0,Y 

PHA 

DEY 

m FlOPXl 



4 BYTE 

Get address of leO 
Initialise pointer 



; Get byte 

; Smwm on stack 



; Seit hfte 
I Get I^%^e of the lO^msmmm- 




A51B 
6900 
851B 



4619 
90ED 



il0i3 
BllA 

48 
88 

lOFA 



TSX 

LDA $100+7 ,X 
STA EXSAVE 
F10PX2 BEQ FlOm 
CLC 

LDA POlNTl 
ADC #$04 

STA mimi 

LDA POINTl-fl 
ADC #$00 
STA POlBTl+1 

t 

I CSet next bit of escponent 



LS& EXSAVE 
flOPX2 

; Copy pover of 10 on stack 



; Save the exponent on page zero 

; WHILE exponent > 0 DO 
; Increase pointer 

; Length of f io#t « 4 



Bit te clear > next Mt 



LDY #03 , 4 byte 
F10PX4 LDA (POINTI ),Y 
PHA 

DEY ; 9mm^m 

BPL F10PX4 



205103 
4C3507 



Multiply (partial) result by poller of 10 

I Yes, anltiply 



JSR FMUL 
JMP F10PX2 



A003 F10PX3 LDY #3 



68 
BA 

9D0601 



F10PX5 



PLA 
TSX 

STA $100^,X 



; Move 4 byte from the top of the 

; stack 

; Get byte 

; Get top of stack 
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1173 
1174 
1175 
1176 
U77 

liti 

1179 
1180 
1181 
1182 
1183 
1184 
118$ 
1186 

1187 
1188 
1189 

1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 



07 5D 
075E 
0760 
0761 
0761 



0761 
0761 
0761 
0761 
0761 



0763 
0764 
0767 
0768 
0769 
076B 
076B 
076D 
076F 
0771 
0773 
0775 
0777 
0779 
077B 
077D 
077F 
077F 
0781 
0784 
0785 
0786 
0788 
0788 
078B 
07 8B 



078D 
078E 
078F 
078F 
0791 
0791 



0794 
0797 
0798 
0799 
079B 
079B 
079D 
079F 
07A0 
07A1 
07A3 



10F8 
60 



DEY 

BPL Floras 

RTS 



FlOliG: Calculate the lO's log of a positive FP-number 
TRie result is stored In EXPIO (Integer part) and In the 
parameter (fraction). 

Based on: Hagen Volzke Fliesskomma - Arlthmetlk und 
ISl^Spexifikatioa 
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A003 FioLG mr #3 



BA FlOLl 

BD0601 

48 

88 
10F8 

A905 
8521 
A920 
8523 
A900 
8520 
A912 

8514 
A90f 
851B 

A003 

B9FA06 F10L2 

48 

88 

10F9 

203103 



68 

m 

68 
68 

305D 

A003 
KA 

BD0601 
48 
88 
10F8 

A003 
BllA 
48 
88 

lOFA 



TSX 

U)A $100+6,X 
PHA 

DEY 

BPL FlOLl 

LDA #5 
STA COUNIO 
LDA #32 
STA TWOPX 
LDA #0 
STA EXPIO 
LDA #<C1E32 
STA POINTl 
LDA #>C1E32 
STA POINTl-t-1 

LDY #3 
LDA C1E0,Y 
PHA 

DEY 

BPL F10L2 
JSR FSUB 

P14 



F1QLP4 



F10LP6 



PLA 
PLA 

BMl F10LN4 

LDA $0100+6 »X 

PHA 
DEY 

BPL F10LP5 

LDY #3 

LDA (POINTl ),Y 

PHA 

DEY 

ML w imB^ 



; Copy 4 bytes ivom p«enBlt«c to t«f 

; of stack 

; Copy stack pointer 

; Get byte 



; Next byte 

; Initialise bit counter 
; 2 pomr S 
; Glome i»«ult 

; ittitialiso pointor aa 16«32 



; Copy 4 byte of lEO wi staefc 
J Get 
■'§wms on stwik 

; Next byte 

; Subtract bytes to tost on < lEO 
I Drop result 



; FP-number < 1 

; Copy 4 bvtes 

; Get stack pointer 

; Get h§tm 



i Neist byte 

; Copy 4 by t m 

; Push byte 

; Nei^t l^tt 



I 
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1232 


07A3 


20B704 




JSR FDIV 


1233 


07A6 




> 




1234 


07A6 




; Copy 


J.COUXI. X cuon 


1235 


07 A6 




• 
> 


1236 


07A6 


A003 




LDY 


1237 


07A8 


BA 


FIOFLA 




1238 


07A9 


BD0401 






1239 


07 AC 


48 




PHA 

f SUV 


1240 


07AD 


88 






1241 


07AE 


10F8 




BPL FIOPLA 


1242 


07B0 




• 

> 




1243 


07B0 


A003 






1244 


07 B2 


B9FA06 FlULPi 




1245 


07 B5 


48 




PHA 


1246 


07 B6 


88 




DEY 


1247 


07B7 


10F9 




IPL F10LP7 


1248 


07B9 




• 
> 




1249 


07 B9 


203103 




JSR FSUB 


1250 




WW 




PLA 


1251 




6§ 




PLA 


1252 


07BE 


68 




PLA 


1253 


07BF 


68 




PLA 


1254 


07C0 


3014 




MIT F10LP8 


1255 


07C2 








1256 


07C2 


A523 




LDA TWOPX 


1257 


07C4 


18 




CLC 


1258 


07C5 


6520 




ADC EXP 10 


1259 


07C7 


8520 




ST A EXP 10 


1260 


07C9 




• 

* 




1261 


07C9 


A003 




LDY #3 

lUMJ A IT ^ 


1262 


07CB 


BA 




TSX 


1263 


07CC 


BOOlOl 


F10LF9 


LDA SO 100+1 X 


1264 


07CF 


9D0701 




fiTA ^OIQIW? Z 


1265 


07D2 


E8 




INX 


1 266 




88 




A7U A 


1267 


07D4 

V r A^*T 


10F6 




BPL F1QLP9 


1268 


o7d6 




* 




1269 


07D6 


68 


Flf^t 


PLA 


1270 


07D7 


68 




PLA 


1271 


07D8 


68 




PLA 


1272 


07D9 


68 




PLA 


1273 


07DA 


4623 




LSR TNDPX 


1274 


07DC 


38 






1275 


Gtm 


ASIA 




IJDA POINTI 


1276 


07DF 


E904 




SBC #4 


1277 


07E1 


851A 




ST A POlNTl 


1278 


07E3 


A51B 




LDA POlNTl+1 


1279 


07E5 


E900 




SBC #0 


1280 


07E7 


8S1B 




STA POlMTl-l-1 


1281 


07E9 




• 
* 




1282 


07E9 


C621 




DEC COUNIO 


1283 


07EB 


10A4 




BPL F10IJP4 


1284 


07 ED 


60 




RTS 


1285 


07 EE 








1286 


Q7£E 


A003 


wioiM 


ua #3 


12«7 


d7fd 


ba 


nmM 




1288 


07F1 


BD0601 




LDA $01004«,X 


1289 


07F4 


48 




PHA 


1290 


07F5 


88 




DEY 



; Divide actual auitlsaa by actual 
; po»et IBS id 



Copy 4 byte 

Gel sta^ pointer 

Get byte 



; Copy 4 byte 



; Keeult > 1 ? 

; Dr<9 result of aubtractloii 



I 

t Mii actual pover Of 2 to result 



; Copy actual maniiiMW t» mm^ 
; Get stack pointer 
; Get byte 
; C^y bgrte 



; leaoire tap fp^niaiiir 



; Decrease power of tvo 

: Decrease actual powr of 10 

i Hf i»^ei«fStoi t:lM «l4gMMif' 



6 times ? 



Cc^y 4 bytes 

Gkf stack pointer 

Get byte 



MmemBH 
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1291 


07F6 


10F8 




BPL 


FIOLNS 


1292 


07F8 




J 






1293 


07F8 


A003 




LDY 


#3 


1294 


0?j?A 


Bl 1 A 


F10Lli6 


LDA (FOINTI).Y 


1295 


07FC 


48 




PHA 




1296 


07FD 


88 




DEY 




1297 


07 FE 


lOFA 




m» noim 


1298 


0800 




• 
* 






1299 


0800 


205103 




JSR FtOJL 


1300 


0803 




• 
• 






1301 


0803 




1 Ci»»y iesult f or coop 


1302 


0803 




f 






1303 


0803 


A003 




LDY 


#3 


1304 


0805 


BA 


FIONLA 


TSX 




1305 


0806 


mmmi 




LDA 


$0100-l-4.X 


1306 


0809 


48 




PHA 


1307 


080A 


88 




DEY 




1308 


080B 


lom 






FlOlflLA 


1309 


080D 




9 






1310 


080D 


A003 




LDY 


#3 


1311 


080F 


]^F£06 


F10LN7 


LDA 


ClEl ,Y 


1312 


0812 


48 




PHA 




1313 


0813 


88 




DEY 




1314 


0814 


10F9 




BPL 


F10LN7 


1315 


0816 




*■ 










.203103 




JSR 


FSUB 


ill? 




68 




PLA 




1318 


081A 


68 




PLA 




1319 


081B 


68 




PLA 




1320 


081C 


68 




PLA 




1321 


081D 


1014 




BFL 


FIOLNB 


1322 


081F 










im 


OIIF 


A523 




LDA 


THOPX 


'tm 


0821 


18 




CLC 




1325 


0822 


6520 




ADC 


EXPIO 


1326 


0824 


8520 




STA 


EXP 10 


1327 


0826 




• 
$ 






1328 


0826 


A003 




LDY 


#3 


1329 


0828 


BA 




tsx 




1330 


0829 


BDOlOl 


FlOLNd 


LDA 


$0100+1 ,x 


1331 


082C 


9D0701 




STA 


$0100+7 ,X 


1332 


082F 


E8 




INX 


1333 


0830 


88 




DEY 




1334 


0831 


10F6 




BPL 


F10LN9 


1335 


0«33 










1336 


0833 


4623 


FIOLNS 


LSR 


TWOPX 


1337 


0835 


38 




SEC 




1338 


0836 


A51A 




LDA 


POINTI 


1339 


0838 


E904 




SBC 


#4 


1340 


083A 


851A 




STA 


POINTJ 


1341 


083C 


A51B 




LDA 


POlNTl+l 


1342 


083E 


E900 




SBC 


#0 


1343 


0840 


851B 




STA 


POlNTl+1 


1344 


0842 




* 






1345 


0842 


68 




PLA 




1346 


0843 


68 




PLA 




1347 


0844 


68 




PLA 




1348 


(^45 


68 




PLA 




1349 


0846 




• 
* 







; Next byte 
} Copy 4 byte* 
I Pffirti i^te 
; byte 

i Miltiply aetmal vantissa by actual 
; jmmw of 10 



; Copy 4 byte 

; Get stack pointer 

; Get byte 



; Copy 4 byta 



; Result >- 10 ? 

; Drop result of subtraction 



; Add actual power of 2 to result 



Gopif aetttal aantissa to x««tt].t 
G6t staek pointer 

Get byte 
Copy byte 



; Decrease power of two 

; Deerease actual povar oi 16 

; Wf decreasing thm address 



; Remove scratch 



6502 Floating Point Package PROTON 650X ASSEMBLER V4.4 PAGE: 0010 



1350 
1351 
1352 
1353 
135A 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
13(52 
1363 
136A 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
13B1 
IU2 
1383 
1384 
1385 
1386 

ism 

1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 



0846 

0848 

084A 

084A 

084 B 

084D 

084F 

0851 

0852 

0852 

0852 

0852 

0852 

0852 

0852 

0852 

0852 

0852 

0852 

0852 

0852 

0852 

0852 

0854 

0856 

0858 

0859 

085B 

085B 

085B 

085B 

085B 

085C 

085F 

0861 

0864 

0866 

0866 

0868 

086B 

086 E 

086F 

0870 

0872 

0874 

0877 

0878 

087A 

087D 

mfD 

087D 
087D 
087E 
0881 
0883 
0885 
0888 
088A 
088C 
0882 



C621 
10A4 

38 

A900 
E520 
8520 
60 



: 6 tines 7 

; Negate result 



DEC COUNIO 

SEC 

LDA #0 
SBC EXPIO 
STA E3EP10 

lis 



Conversion of a single precision IEEE floating 
nunibex' to an ASCII »tximg» Fonat: JfBBSB^nm^ 

The floating point mmfbmt is oa thm stack; a pointer to 
the output buffer is p««iei in tfae (Zero fag^} vm^§kl^ 
FOUTPU. 

Based on: Hagen Volzke Fliesskoana - Arithnetik imd 
lEEE-Spezlflfcatioii 



AOOC 

A920 

911C 

88 

lOFB 



FFTOA LDY #12 

LDA #' ' 
FTOAl STA (FOUTPU) ,Y 

BPL FTOAl 
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; Clear 13 byte in the output buffer 
; Clear byte 



; Rotate the top of the stack 2 tlMBS over 4 byte 
; to get the FP-nuaber on top 

Get stack pointer 
Get return address 



BA 


TSX 


i 


BDOlOl 


LDA $0101 ,X 


• 
» 


8500 


STA RETADD 




BD0201 


LDA $0102 »X 




8301 

• 


STA RETABDfl 




• 

iyD03 


Wt #3 




BD0301 FTOAL 


LDA $103 ,X 


• 
f 


9D0101 


STA $101 ,X 




E8 


INX 




88 


DEY 




10F6 


BPL FTOAL 




A300 


U)k RETADD 


• 
i 


9B0101 


STA $101 ,X 




E8 


INX 




A501 


LDA RETADD+1 




9D0101 


$101 ,x 





; Restore Ksturn address 



Get the sign bit (in the MS Vord) 



BA 

BD0401 

lOOB 

297F 

9D0401 

A92D 

AOOO 

911C 



TSX 

LDA $100+4 ,X 
BPL FT0A2 
AND #$7F 
SXA $100+4 »X 
LDA #$'-' 
LDY #0 

STA (FOUTPU) ,Y 



Get stack pointer 

Get MS byte of FP*«wllSt 

Positive number 

Clear sign bit 

Restore tt-mmb%w 
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1410 


088E 










1411 


088E 




; Sooe special cases; 


1412 


088£ 




* 






1413 


088E 










1414 


088E 










1415 


088E 


BA 


FT0A2 


TSX 




1416 


088F 


A003 




LDY 


#3 


1417 


0891 


BD0401 


FTOA3 


LDA $100+4.X 


1418 


0894 


D91607 




CMP 


COVL.Y 


1419 


0897 


DOlO 




BNE FfOM 


1420 


0899 


CA 




DEX 




1421 


089A 


88 




DEY 




1422 


089B 


10F4 




BPL FT0A3 


1423 


089D 




« 
» 






1424 


089J7 




t It 




1425 


089b 




• 






1426 


089D 


AOOC 




LDY 


#12 


1427 


089F 


A945 




LDA 


#'E' 


1428 


08A1 


911C 




STA 




1429 


08A3 


88 




DEY 


1430 


08A4 


DOFB 




IMI 




1431 


08A6 


4C9C09 




JMP 


FTOAE 


1432 


08A9 




• 
f 






1433 


08A9 


BA 




TSX 




1434 


08AA 


A003 




LDY 


#3 


1435 


08AC 


BD0401 




LDA 


$100+4,X 


1436 


08AF 


D91A07 




CMP 


CNAN,Y 


1437 


0812 


DOlO 




BNE 


FTOAZ 


1438 


08B4 


CA 




DEX 




1439 


08B5 


88 




DEY 




1440 


08B6 


1^ 




WL 


FT0A6 


1441 


08B8 




• 

* 






1442 


08B8 




: It' 




II nuBtber • 


1443 


08B8 




• 

* 






1444 


08B8 


AOOC 




LDY 


112 


1445 


08BA 


A93F 




LDA 




1446 


08BC 


911C 


FT0A7 


STA 


(FOUTPU) ,Y 


1447 


08BE 


88 




DEY 


144@ 


081F 


COFB 




BNE 


FT0A7 


144f 


68d1 


4C9C09 




JMP 


FTOAE 


1450 


08C4 










1451 


08C4 


BA 


FTGAZ 


TSX 




1452 


08C5 


A003 




LDY 


#3 


1453 


08C7 


BD0401 


FTOAZl 


LDA 


|J00+4,X 


1454 


mt^k 


0900 




dff 


1455 


08CC 


DOOD 




BNE 


FT0A8 


1456 


08CE 


CA 




DEX 




1457 


08CF 


88 




DEY 




1458 


08D0 


10F5 




BPL 


FTOAZl 


1459 


08D2 










1460 


Q8D2 




; It 


is mm 


1461 


0802 




• 
• 






1462 


omr 


AOOC 




LDY 


#12 


1463 


08D4 


A930 




LDA #'0' 


1464 


08D6 


911C 




STA (FOUTPU).Y 


1465 


08D8 


4C9C09 




MS 


FTOAE 


1466 


08&B 




• 






1467 


08DB 


206107 


FT0A8 


JSR 


FIOLG 


1468 


08DE 


A901 




LDA #1 


1469 


mm 


8522 




STA GOUNCV 



??????????? Not A Nuidier 

0 Zero 

; Get stack pointer 
• (knipare 4 ^« 

; Compare fftm^t «tth o^rf leu 



; N(^ eifoal, ecmtinue 



; Next byte 



: FOUTPU[0] contains sign 

: &cit 

; Get stBck pointtt 

; Coqtare 4 byte 

; Coir^are Wf-muSbttt itt^ WtX 

i Not equal, continue 



; Neact l^te 



: FOUTPU [0} eoatatfis slga 

; Exit 

; Get stack pointer 

; Compare 4 byte 

; Coapare FP-nuaber with sero 

I Heh: equal* contimM 



; Next byte 



i &iJ.t 

; 0 <" Result < 10, exponent in EXPIO 
; Calculate 8 digits; start at digit 1 



U^> IS Al 
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; Copy 4 byte 

; Get Stack pointer 

; Get byte 



; Get integer part 

; 6e£ 0 <« Integer <- 9 















X*r i 1 




AUU J 


FTOAR 


LiU X 


#3 




nsii'A 


OA 


FTOAS 


TC V 

Ida 




1'*/ J 


UOJlJ 


duxjhKJx 






T TV A 


^ 1 f\/, V 


1 


UoCiO 


AH 
'to 






rtlA 


1 A7 <» 




fill 










i A7<1 
i •*/ O 


UOCA 


lUITO 






IPt 


irxvAy 


1 A77 


UOCAj 




i 








1 A7» 




^UOOUD 






TCD 


f r iUL 


1 A7Q 




AR 
Do 






PT A 




1 HOVJ 


uor u 


AR 

HO 






PUA 




1 AR 1 


uor I 


1 R 

i o 






ni^ 




1 Afl7 


uor X 








knr 


r u 


1 &fi^ 










uvZ 




i HOH 


uor o 


Q1 If* 






fiTA 
oXA 




1 A8S 

X HO J 


uor o 




• 
• 




1 'TOO 


uor o 


F69 9 






1 Mr 


rniiNru 
















1 "too 
















uor E« 


r\JX3 








mvtAi 1 

r tv&J 1 


1 AQn 


nonn 




• 








fiQnn 

U!7UU 


zur ^u J 






J oK 


r Lilur 


1 AQ9 


U3U J 








J DA. 


FGITR 


1 AQ^ 


nODA 

uyuD 


AUUj 






T nv 


#3 


1 AQA 




nQFFntik 
jjycCiUD 


FTOAIO 


UDA 


ClEl.Y 




UyVa 


Afi 
HO 






PHA 




Inyo 


uyuc 


fiS 
oo 






DEY 




1 AQ7 




i Uf y 






BPL 


FTOAIO 




uyui? 




i 
















JSR 


FMUL 












JMP 


FTOAR 


X 3111 












1 KM 


no 1 >^ 


AQ 
Do 


FTOAl 1 


FLA 




XjUJ 


uyi 0 


AR 
Do 






PLA 




1 ^nA 


no 1 7 
uy i / 


Afi 
OO 






PLA 




1 


no 1 fi 


AA 
00 






PLA 


















1 Sft7 
1 ^U/ 


no 1 Q 
Kjyxy 






Round 




i DUO 


uy i y 












A «^v7 


U3^ 1 7 


AflOfl 






LDY 


#8 




\jy 1 D 


Rl 1 f 


PT0AI2 


IDA 


(FOUTPU) ,Y 












CMP 


#'5' 


1512 


09IF 


9Mfi 






BCC 


FTOA20 


1 sn 

A ^ A ^ 


U7^ i 


oo 


FTOAl 5 


DEY 




1 SI A 

A v/ A ^ 




UA A V 






LDA 


(FOUTPU) ,Y 


ISIS 




Vrf7 J 7 






CMP 


#'9' 


1516 


0926 


F008 

A vy V/ u 






BEQ 


FTOAl 3 


1517 


0928 


18 






CLC 




1518 


0929 


6901 






ADC 




1519 


092B 


911C 






STA 


(FOUTPU) ,Y 


1520 


092D 


4C4909 






JMP 


FT0A20 


1521 


0930 


A930 


FTOAl 3 


LDA 


#'0' 


1522 


0932 


911C 






STA 


(FOUTPU) ,Y 


1523 


0934 


DOEB 






BNE 


FTOAl 5 


1524 


0936 












1525 


0936 






, Overflow on last digit 


1526 


0936 






; and shift 


result 


1527 


0936 












1528 


0936 


E620 






INC 


EXPIO 


tS29 


msB 


Mm 






im #8 



; Store digit 



; 8th digit? 
; "^tutf exit 



; Convert digit back to filNIt 

; Subtract digit 

J Copy 4 byte 

; Copy 10 to etack 



; Next digit. ••.«. 



; Remove last integer 



I fwi^mi9 digit 



i Add 1 to digit 



; Digit zero 
; Cimtinue with next digit 
— > increase exponent 



3 
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1530 


093A 


BllC 






1531 


093C 


C8 






1532 


093D 


91 IC 






1533 


093F 


88 




DFY 


153A 


0940 


88 




DEY 


1535 


0941 


D0F7 




BNE FTOAl A 


1536 


0943 


A931 




LDA #'1' 


1537 


0945 


AOOl 




LDY #1 


1538 


0947 


flic 




STA rPOUTPU^ Y 


1539 


0949 






1540 


0949 




; Shift 




1541 


0949 








1542 


0949 


A009 


FTOA20 


LDY #9 


1543 


094 B 


IMS 




IDA 


1544 


094D 


911C 




STA (F01JTPU),Y 


1545 


094F 


88 




DEY 


1546 


0950 


88 




DEY 


1547 


0951 


BllC 


FT0A21 


LDA (F0UTPU),Y 


1548 


0953 


C8 




INY 


1549 
ISfO 


0954 
0lS6 


9J1C 
88 




Sm (P0UTPU),Y 


1551 


0957 


88 






1552 


0958 


D0F7 




BNE FT0A21 


1553 


095A 


A002 




LDY #2 


1554 


095C 


A92E 




LDA 


1555 


09 5E 


911C 




1556 


0960 






1557 


0960 




: Format exponent 


1558 


0960 








1559 


0960 


AOOA 




LDY #10 


1560 


0962 


A92B 




LDA #'+' 


1561 


0964 


911C 




STA (FOUTPU),Y 


1S62 


0966 


A520 




LDA EXFIO 


1563 


0968 


lOOA 




BPL FT0A22 


1564 


096A 


49FF 




EOR #$FF 


1565 


096C 


8520 




STA EXP 10 


1566 


096E 


E620 




INC WIO 

.1114 


1567 








1568 


0972 


flic 




STA (fOUTPU),Y 


1569 


0974 






1570 


0974 




FTOA22 




1571 


0974 


AOOB 




LDY #11 


1572 


0976 


A930 




LDA #'0' 


1573 


0978 


911C 




SXA (FOUTPU) ,Y 




d#7A 


18 




CLC 


1575 


097B 


A900 




LDA #0 


1576 


097D 


690A 


FT0A23 


ADC #10 


1577 


097F 


C520 




CMP EXPIO 


1578 


0981 


lOOA 




BPL FT0A24 


1579 


0983 


48 




PHA 


1580 


0984 


BllC 




LDA (FOUTPU) »Y 


1581 


0986 


6901 




ADC #1 


1582 


0988 


911C 




STA (FOOTP«),Y 


1583 


098A 


68 




PLA 


1584 


098B 


90F0 




BCC FTOA23 


1585 


098D 




• 




1586 


098D 








1587 


09 8D 


49FF 




EOR #$FF 


1588 


098F 


18 




CLC 


1589 


0990 


690B 




ADC #14-10 



I Cc^y byte 



Index 0 « sign 
MS Digit 



'.' and 'E' 
Exponmit 

Get digit 
Stote digit 

Index > 0 — > Continue 
Index 10 contains exp-sign 



Intiallze on -f 
Get exponent 
SifB is eervect 



Store 2'8 coapleaent 
MtsttS 



Index 11 is first digit of exponent 
. • ' - * - oil sero 



Increnent A by 10 
wqpenent > A ? 

§mm seen 

Get MS digit of ex^g^mnt 
Increment digit 

Restore accu 
Negate accu 

2'# :(iiiiiple»ent oi last difCtAf 0 
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1590 


0992 


18 


1591 


0993 


§§f0 


1592 


0995 


18 


1593 


0996 


6930 


1594 


0998 


AOOC 


1595 


099A 


91 IC 


1596 


099C 




1597 


099C 


68 


1 598 


099G 


68 


1599 


099E 


68 


1600 


099F 


68 


1601 


09 AO 


A900 


1602 


09A2 


AOOD 


1^03 


39A4 




1604 


09A6 


60 


1605 


09A7 




1606 


09A7 




1607 


09A7 




1609 


09A7 




1610 


09A7 




1611 


09A7 




1612 


09A7 




1613 


09A7 




1614 


09A7 




1615 


09A7 




1616 


09A7 




1617 


09A7 




1618 


09A7 




1619 


09A7 




1620 


09A7 




1621 


09A7 




1622 


09A7 




1623 


09A7 




1624 


09A7 


A900 


1625 


09 A9 


8524 


1626 


09AB 


A8 


1627 


09AC 


8520 


A w Aw 


Of AE 




1629 


09B0 


991500 


1630 


09B3 


88 


163 1 


09B4 


lOFA 


1632 


09B6 




1633 


09B6 




1634 


09 B6 




1635 


09S6 


C8 


1636 


09B7 


Bl IE 


1637 


09B9 


C920 


1638 


09BB 


F0F9 


1639 


09BD 


C909 


1640 


09BF 


F0F5 


1641 


09C1 




1642 


09C1 




1643 


09C1 




1644 


09C1 


C92B 


1645 


09C3 


FOOE 


1646 


09C5 


C92D 


1647 


09C7 


F004 


1648 


09C9 


88 


1649 


09CA 


4CD309 


1650 


09CD 


A90] 



CLC 

M»b EXFIO 

CLC 
ADC 
IDY 



#'0' 
#12 



FTCAE 



STA (FOUTPU),Y 
PLA 

PLA 

PLA 
LDA #0 
LDY #13 

m (fOUTPU),'? 



; Md exponeai t9 fit lai 

; Ascil 

; Store digit 

; iteiko>^ scratch 

; Tetnlnate output bufl9^ 



Conversion of an ASCII string to a sizzle precision ISSE 
etH^k; the ASCII string is passed If tie pis$mm M^S^. m 
page zero. 

Leading spaces and tabs are Ignored and thft ASCII string 
should be terminated by a non-digit. 

The number may be proceeded by an optional sign. Before the 
t decimal point and behind th# i or e and an optional sign of 
the exponent should at leaiB^t be (me digit* 



Based on: Hagen Volzke Flless' 
lEEE-Speziflkatlon 



- ArifctMiltik und 
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AT0F22 

; Skip 
ATOFl 



LDA #0 

STA CFLAGS 
TAY 

STA EXPIO 
LDY #3 
STA SAVE.Y 
DEY 

BPL ATOF22 



; Cltar fl«gs 

; Clear index on string 

; Clear exponent 

; Clear 4 byte on page zero 



leadii^ spaces and tab* 



INY 

LDA (F1NPDT),Y 
CMP #' ' 
BEQ ATOFl 
CMP #$09 
BEQ ATOFl 



; Do we have a sign? 

« 

CMP #'+' 
BEQ AT0F2 
CMP #'-' 
BEQ AT0F3 

DEY 

JMP AT0F2 
AT0f3 LDA IMMASK 



; Y was $FF the first time 
; Get next character 

; Skip Character 

; Skip Qiarectcr 



I Yes, ccmtlaBse 
; Minus 

; 8o sign, decrement pointer 
; Megative 
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1651 


09CF 


0524 


1652 


09D1 


8524 


1653 


09D3 




1654 


09D3 


G8 


1655 


mm 


BllE 


1656 


09D6 


C930 


1657 


09D8 


9006 


1658 


09DA 


C93A 


1659 


09DC 


B002 


1660 


09DE 


9003 


1661 


09E0 


4C280B 


1662 


09E3 




1663 


09E3 


BllE 


1664 


09E5 


AA 


1665 


09E6 


A524 


1666 


09E8 


2904 


1667 


09EA 


DOOE 


1668 


09EC 


E02E 


1669 


09EE 


DOOA 


1670 


09F0 


A904 


1671 


09F2 


0524 


1672 


09F4 


8524 


1673 


09F6 


C8 


1674 


09F7 


4CE309 


1675 


09FA 




1676 


09 FA 


8A 


1677 


09FB 


C930 


1678 


09FD 


9068 


1679 


0#ff 


mM 


1680 


OAOl 


B064 


1681 


0A03 




1682 


0A03 


98 


1683 


0A04 


48 


1684 


0A05 


A003 


1685 


0A07 


B91500 


1686 


OAOA 


990D00 


1687 


OAOD 


88 


1688 


OAOE 


10F7 


1689 


OAIO 




1690 


OAIO 




1691 






1692 


OAIO 




1693 


OAIO 


18 


1694 


OAll 


A004 


1695 


0A13 


A20D 


1696 


0A15 


200002 


1697 


0418 


18 


1698 


0AI9 


A004 


1699 


OAIB 


A20D 


1700 


OAID 


200002 


1701 


0A20 




1702 


0A20 


18 


1703 


0A21 


AOOO 


1704 


0A23 


08 


1705 


0A24 


B90D00 


1706 


0A27 


28 


1707 


0A28 


791500 


1708 


0A2B 


991500 


1709 


0A2E 


08 . 



QUA CFLAGS 
SUA CFLAGS 

LDA (F1NPUT),Y 
CMP #'0' 
BCC ATOF40 
CMP 

BCS AX0F40 

BC6 mm 

A3CAF40 JMP ATOFNA 

AfOF4 LDA (FISPDD.Y 

TAX 

LDA CFLAGS 
AMD #DMASK 
BNE AT0F5 

CPX 

BNE AT0F5 
LDA #DMASK 
ORA CFUGS 

INY 

JMP AT0F4 

AT0F5 TXA 

CMP #'0' 
BCC AT0F6 
CMP 

BCS AIQF6 

TYA 
PHA 
IM #3 
AW1@ LDA SAVE,Y 
ST A WORK.Y 
DEY 

BPL ATOFIO 

Multiply the contains of the wocUng apac« 1^ 10 
and add the next digit. 

; Multiply by 10: Shift 2 bit, add, 
; 4 lorte aliif t 1 bit 



; Store negative flag 

; Get tuRM ihmemetmXi tbls should be 
; a digit 

; < '0' 

i Yes, Not A Number 

; > 9 ? 

: Yes, Not A HtmOmv 

i Branch is out of rang* 

; Get character 
; Save character 
; 6et the flags 

; Already a decimal point detected f 
; Yes, skip the next test 
; Test for decimal point 

; Flag decimal point 



; Increment index 

; Get the next character 

; Restore character 

• < '0' 

; Yes, end of maatlssa 

; > '9' 

; Save Y on the stack 

; Copy 4 byte 



CLC 




LDY 


#4 


LDX 


#<W0RiC 


jii 




CLC 




LDY 


#4 


LDX 


#<W0RK 


JSR 


ROTLEF 


CLC 




LDY 


#0 


PHP 




LDA 


WORK.Y 


PLP 




ADC 


SAVE,Y 


ffl 


i^.Y 


PHP 



Add WORK to SAVE 
Save carry 

Restore carry 



I Save carry bit 



IE) IS Ai IF^ I^ZESE^SriHI^ 
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1710 


0A2F 


C8 


1711 


0A30 


C004 


1712 


0A32 


DOFO 


1713 


0A34 


28 


J 7 14 


0A35 




1?15 


OA35 


A004 


1716 


0A37 


A215 


1717 


0A39 


18 


1718 


0A3A 


200002 


1719 


0A3D 




1720 


0A3D 


68 


1721 


0A3E 


AS 


1722 


0A3F 


38 


1723 


0A40 


BllE 


1724 


0A42 


38 


1725 


0A43 


E930 


1726 


0A45 


18 


1727 


0A46 


*515 


1728 


0A43 


8515 


1729 


0A4A 


A201 


1730 


0A4C 


08 


1731 


0A4D 


A900 


1732 


0A4F 


28 


1733 


0A50 


7515 


1734 


OAS 2 


9515 


1735 


0A54 


08 


1736 


OAS 5 


E8 


1737 


0A56 


E004 


1738 


0A58 


D0F3 


1739 


OASA 


28 


1740 


0A5B 




1741 


0A5B 




1742 


0A5B 




1743 


0A5B 


A524 


1744 


0A5D 


2904 


flic 

1745 


0A5F 


F002 


1746 


0A61 


C620 


1747 


0A63 


C8 


1748 


0A64 


4CE309 


1749 


0A67 




1750 


0A67 




l/Sl 


M67 




1752 


OA67 


A900 


1753 


0A69 


850D 


1754 


0A6B 




1755 


0A6B 


BllE 


1756 


0A6D 


295F 


1 73/ 


0A6F 


C945 


1758 


0A71 


D044 


1759 


0A73 


C8 


1760 


0A74 


BllE 


1761 


0A76 




1762 


OA76 


C92B 


1763 


0A78 


FOOA 


1764 


0A7A 


C92D 


1765 


0A7C 


D009 


1766 


0A7E 


A902 


1767 


0A80 


0524 


1768 


0A82 


8524 


1769 


0A84 


C8 



AT0F13 



INY 

CPY #4 
BNE ATOFll 

LDY #4 
LDX fSAVE 

CLC 

JSR ROTLEF 

FIA 
TAY 

SEC 

LDA (FIUPOT),! 

SEC 

SBC #'0' 
CLC 

ADC SAVE 

STA SAVE 
LDX #1 
PHP 

LDA #0 
PLP 

ADC SAVE.X 
STA SAVE,X 
PHP 
INX 

CPX #4 
pS AT0F13 



i 104 I 



; Rotate 4 byte 



; Restor* I ^ 

; Qmt character 
I 0m difit value 
; Add to LS byte 



; Save carry 

; Add carry to next b^ta 
; $«t aavid earry 



; Save carry 
; Mi^lTta ? 



Decrement the exponent for all digita behind the point 



AX6f41 



LDA CFLAGS 
AMD IDMASK 

BEQ AT0F4I 
DEC EXP 10 
INY 

JMP AT0F4 



The optiimal ezponant*. 



AI0F6 



^QF8 



LDA 


#0 


STA 


WORK 


LjD4 


CF1NPUT),Y 




mmnh 


CMP 


#'E' 


BNE 


AT0F7 


INY 




LDA 


(F1NPUT),Y 


CMP 


#'+' 


BEQ 


AS0F8 


CMP 




BNE 


AT0F9 


LDA 


#ENMASK 


ORA 


CFLAGS 


STA 




INY 





; ielect flag 
; Process next charactat^ 
; Decrement exponent 
; Next index 

; Proceaa next character 



; Clear axpooaat 



; Get character 

; To upper.... 

; 'E' or 'e' ? 

; No exponential part 

; Next index 

; Get next character 

I Qittloaal algn ei felw mii^mm^ 



i $mt aegatlva expcnaat bit 



Aummm 



6502 Floating Point ITackage PROTON 650X ASSEMBLER V4.4 PAGE: 0017 



1770 


OAS 5 


BllE 




LDA (F1NPUT),Y 


1771 


0A87 




f 

AX0F9 






1772 


0A87 


C930 


CMP 


#'0' 


1773 


0A89 


900C 




Bee AiOF42 


1774 


0A8B 


C93A 




CMP 




1775 


0A8D 


BOOS 




BCS 


AT0F42 


1776 


0A8F 


38 




SEC 




1777 


0A90 


E930 




SBC 


ro' 


1778 


0A92 


8 SOD 




STA WORK 


1779 


0A94 


4C9A0A 




JMP 


AT0F12 


1780 


0A97 


4C280B 


AT0F42 


JMP 


ATOFNA 


1781 


0A9A 




> 






1782 


0A9A 


C8 


AT0F12 


INY 




1783 


0A9B 


BllE 




LDA (FINPUT),! 
CMP #'0' 


1784 


0A9D 


C930 




1785 


0A9F 


9016 




BCC AT0F7 


1786 


OAAl 


C93A 




CMP 


#' : ' 


1787 


0AA3 


B012 




BCS 


AT0F7 


1788 


0AA5 


A50D 




LDA WOiK 


1789 


0AA7 


18 




CLC 




1790 


0AA8 


OA 




ASL 


A 


1791 


0AA9 


OA 




ASL 


A 


1792 


OAAA 


650D 




ADC 


WORK 


1793 


OAAC 


OA 




ASL 


A 


1794 


OAAD 


711E 




ADC (F1NPUT),Y 


1795 


OAAF 


38 




SEC 




1796 


OABO 


E930 






#'0' 


1797 


0AB2 


850& 






mm 


1798 


0AB4 




• 

t 






1799 


0AB4 


4C9A0A 




JMP 


AT0F12 


1800 


0AB7 




AT0F7 






1801 


0AB7 


A524 


LDA 


CFLAGS 


1802 


0AB9 


2902 




AND 


ii^ENMASK 


1803 


OABB 


DOOA 




SHI 


A3COI14 


1804 


OAN) 










1805 


OABD 




; Positve exseeeat 


1806 


OABD 










1807 


OABD 


18 




CLC 




1808 


OABE 


A520 




LDA 


EXPIO 


1809 


OACO 


650D 




ADC 


WORK 


1810 


0AC2 


8520 




STA 


EXPIO 


1811 


0AC4 


4CCE0A 




JMP 


ATOFl 5 


1812 


0AC7 










1813 


0AC7 


38 


AT0F14 


SEC 




1814 


0AC8 


A520 




LDA 


EXPIO 


1815 


OACA 


E50D 




SBC 


WORK 


1816 


OACC 


8520 




STA 


EXPIO 


1817 


OACE 










1818 


OACE 


A003 


AT0F15 


LDY 


#3 


1819 


OADO 


B91500 


AI0FI8 


LDA 


SMI,? 


1820 


0AD3 


48 




PHA 


1821 


0AD4 


88 




DEY 




1822 


0AD5 


10F9 




BPL 


ATOFl 8 


1823 


0AD7 


20F505 




JSR 


FLTOF 


1824 


OADA 


A524 




LDA 


CFLAGS 


1825 


OADC 


2901 




AND 


#NMASK 


1826 
1827 


OADE 

Qjm 


F009 
BA 




BEQ 
TSX 


AX0F60 


li2ft 
1129 


omi 


A9f0 
^)0401 




LDA 

WBi 


#%10000000 
$010044 »x 



; h«s to be « 41git 

: Subtr«ct "0' to get the value 



; Next digit 

; Is it a digit ? 

; No, end of convereloa 



; Httltiply aeved eiqiNnim&t; ^ IQ 



; Add digit 
; Subtract "O" 



; Negative exponent? 
; Select flip 



; Digits behind the deciaal pi»iat 



i Digits belM ttie 



eiaqpy mantissa 



; Convert mantissi to float 
I litt for mgutm mmi^ 



; Negative, get Btfi^ fi^er 
: Sign bit 
; M8-byte 



loisi >uiF> i^iH EST EST nana 
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; Positive eiqp»OBtat, push 4 byte 
I Push 4 byt« fm* integer 



1830 


0AE6 


9D0401 




STA $01 00+4, X 


1831 


0AE9 


A900 


AtC»r60 


LDA #0 


1832 


OAEB 


48 




PHA 


1833 


OAEC 


48 




PHA 


1834 


OAED 


48 




PHA 


1835 


OAEE 


A520 




LDA EXP 10 


1836 


OAFO 


lOOF 




BPL AT0F17 


1837 


0AF2 


49FF 




EOR #$FF 


1838- 


0AF4 


18 




CLC 


1839 


0AF5 


6901 




ADC #1 


1840 


0AF7 


48 




PHA 


1841 


OAFS 


201E07 




JSR FIOPX 


1842 


OAFB 


20B704 




JSR FDIV 


1843 


OAFE 


4C080B 




JMP 0Sm9 


1844 


OBOl 




• 

AI0F17 


1845 


OBOl 


48 


FfiA 


1846 


0B02 


201E07 




JSR FIOPX 


1847 


0B05 


205103 




JSR FMUL 


1848 


0B08 




i 




1849 


0B08 




: Reorgaalse the atmek 


1850 


0B08 




• 




1851 


0B08 


BA 


AT0F19 


TSX 


1852 


0B09 


BD0501 




LDA $01 00+5, X 


1853 


OBOC 


8500 




STA RETADD 


1854 


OBOE 


BD0601 




LDA $0100+6 ,X 


1855 


OBll 


8501 






1856 


OBI 3 




• 
9 




1857 


OBI 3 


A003 




LDY #3 


1858 


OBI 5 


BD0401 




LDA $01 00+4, X 


1859 


OBI 8 


9D0601 




STA $0100+6 ,X 


1860 


OBIB 


CA 




DEX 


1861 


OBIC 


88 




DEY 


lUt 


OBID 


10f6 






1863 


OBIF 


68 




PLA 


1864 


0B20 


68 




PLA 


1865 


0B21 








1866 


0B21 


A501 




LDA RETADD+1 


1867 


0B23 


48 




PHA 


1868 


QB24 


A500 




LDA RETADD 


1869 


0B26 


48 




PHA 


1870 


0B27 


60 




1X8 


1871 


0B28 








1872 


0B28 


68 


ATOFMA 


PLA 


1873 


0B29 


8500 




STA RETADD 


1874 


MtB 


68 




PLA 


1875 


0B2C 


8501 




STA RETADP+Ji 


1876 


0B2E 


A003 




LDY #3 


1877 


0B30 


B91A07 ATOFNl 


LDA CHilH^t 


1878 


0B33 


48 




PHA 


1879 


0B34 


88 




DEY 


1880 


0B35 


10P9 




BPL ATOFNl 


1881 


0B37 


A501 




LDA RETADD+1 


1882 


0B39 


48 




PHA 


1883 


0B3A 


A500 




LDA RETADD 


1884 


0B3C 


48 




PHA 


1885 


0B3D 


60 




RTS 


1886 


0B3E 






.in) FtoAti 



Negative exponent, 
2' 8 coHpleaent 



Push complemented LS byte 
Calculate FP-number for complemented 
Divide mantissa by exponent exp* 



; Push LS byte 

; Calculate FP-number for exponent 
; Multiply mantissa and exponent 



; Get stack pointer 
; Get return addres 



; Move 4 byte 



%m bytes en 



; Restore return address 



; Get return address 
; Save it 



; Transfer 4 byte 
; Get byte 
; Store it 



; Restore return sddmss 



1 



MIL 



IE) IS ajIF^ I^IS3S3r]E^l^l^ 

1. — , ., , , _,„3 DOS-65 CiMuiER 



iliitdows, een v»rzaaeling subroutines door Ernst Elderenbosch . 

Op bijna elkt moderne computer vii d je wel een of andere vorm van 
windows (vensters). Op de Apple computers. Atari, Commodore, IBM pc 
en Acorn Archimedes zijn programo^i's in overvloed die er zonder 
wiq4eirs ^eel ai^ef# uit souden zien. Set it so fciMkkelijk, even 
iranuit een prograania een hulpsctiermpje opeiiliiihn en later veer spoorloos 
laten verdwijn.en. Het lijkt erop alsof hier heel grote progranma's 
aan het werk zijn met tientallen zoniet honderden kilobytes aan 
geheugen en .ngewikkelde routines maar het lioeft helemaal niet zo 
ingewikkeld te zijn. Sterker nog, het is al mogelijk om aardige 
resultaten te krijgen met een buffer van 2k en een stel subroutines 
die gemakketitk in 512 bytes ram p««aiifl» M« •ubroutines zijn dan 
eenvoudig op le roepen vanuit een prograana dat je self naakt, zodat 
jis zonder vee moeite in je eigen assembler programa's windovf kunt 
gebruiken. Dri** listings zijn bijgevoegd: 

windows .mac - de subroutines die bijvoorbeeld tijdens het booten 

worden geladen op $e400-e5ff en daar blijven. 
windowl ib .mac - een libraryfile die aan je programme te koppelen !• 

en waar alle routines en variabelen in sCaan* 
d^sio.mac - een diUldnstratieprogramma waarin je kmt si«B Hoc je 

de routines gemakkelijk kunt gdiruiken Vannit een 

zelfgemaakt assembler progranna, 

Sven een korte uitleg van de subroutines. cijn er vier: 
savewi, makewi, fillwi, remowi. 



savmfi Maakt een kopie van het huidige schera near 

geheugengebied $aOOO-a7ff. Dit g^ei;4(eimebi«4 mmM. 
veel gebruikt voor tijdelijke klussen Boati alttrlei 
commando's die je vanuit het toetsehbord in^eeft. 
Peze k9pM van bet scheim kan later g^i^rKikt w»c4ei| 
Oil die o«id« •ettermttihoiid vtOtt te ti«r«€«lten. 

remowi Dit her stel len van de oude scherminhoud gebeurt met 

de routine remowi (remove window). Deze rontine maakt 
weer een kopie van $aOOO-a7ff en oversehrijft daamee 
de scherminhoud. Zolang niet opnieuw savewi wordt 
gebruikt en $aOOO-a7ff met rust wordt gelaten kun je 
altijd met remowi het o«id« scherm terv^lcrijgen. 

makewi Nadat je vanuit je programme de koordinaten van het 

te maken window hebt bekend gemaakt (door ze te 
zetten in $e40c-e40f), sorgt dese •ttbroittsine eirvoor 
dat er een keurig fcader wordt getekeiMl en d«t dit 
leeg wordt gemaakt. 

flllwi Cm tekst in het window te krijgen, is het genoeg cm 

het beginadres van de tekst in lokatie $e410-e411 te 
zetten en dan subroutine fillwi uit te voeren. Deze 
kopieert de tekst uit het geheugen near het window, 
breekt de tekst af bij de rand van het window en gaat 
net zolang door tot er een $00 vporkopt in de tekst. 
3e mamt er self voor zorgen dat de telat niet tC iang 
wordt anders loopt die onderuit het win4ow, 

Probeer eens hoe het werkt , demo .mac is een aiitdlg voorbeeld yin hoe 
je de routines kunt gebruiken en er zijn vast ook andere toepassingen 
te bedenken. Je hoeft niet perse een window te maken. Als je even je 
•ehem wilt bewarea em een enifleet mder eelietii te ireertehijn te 



toveren zijn savewi en remowi vast ook heel nuttig. Mogelijkheden te 
ov«r. De vdlgAMt keer een tlvfliig «an de windowroutines die g^rttlk 
iMittHKD wakm^ ym de Z80 fcaart on het scherm in op te bergen. 

Veel succes - Ernst Elderenbosch . 



; file 
; purpose 

; author 



windows .mac 

allow windowing on dos65 aachines 

do865 standard veftiott 

E . R. Elderenbosch 





• 

; date 

• 
f 




10 mpt 1988 




0000 
0002 
0004 


i 

i 

pointr 
points 
txtadr 


equ 
equ 
equ 


$0000 
$0002 
$0004 


; memory address pointer ^2} 

; memory address pointer save £21 

; memory addresp mut pointer C?1 


C03B 


prtext 


equ 


$c03b 


; print stting ellt $0 


AOOO 


• 
> 

aerate 


equ 


$aOOO 


; scratch memory for screen copy 


B400 




org 


$e400 


; ftBm memory (2 fMHIM) 



E400 

E400 4C 19E4 
E403 4C 3BE4 

mm m mm. 

E409 4C E4E4 



init 
> 

savewi 
makewi 
fillwi 
rMsowi 



imp 



copyl 
border 
instxt 
copy 2 



E40C 


crdxyl 


res 


2 


E40B 


crdxy2 


res 


2 


E410 


txtvee 


res 


2 


dow 








E412 


adrxyl 


res 


2 


E414 


adrxy2 


res 


2 


E416 


linlen 


res 


2 


E418 


lincnt 
* 


res 


1 ' ■ ■ ''I ] 


E419 A9 E8 


copyl 


Ida 


#$e8 


E41B 85 01 




sta 


pointr+1 


E41D m M 




Ida 


#$aO 


E4iF 85 03 




sta 


points+l 


£42 1 A9 00 




Ida 


#0 ■ 


B423 85 00 




sta 


pointr 


E425 85 02 




sta 


points 


E427 AO 00 




Idy 




E429 Bl 00 


1 


Ida 


[pointr"], y 


E42B 91 02 




sta 


|[points3»y 


E42D C8 




iny 




mn tto F9 




bne 


l.b 


E430 E6 01 




inc 


pointr+1 


E432 ^6 03 




inc 


points+l 


E434 AS 01 




Ida 


pointr+1 


E436 C9 FO 




cmp 


#$f0 


E438 00 EF 




bne 


l.b 


E43A 80 




ns 





; copy screen area to scratch manory 
; make window border i Clear text area 
; copy text to text area 
i restore original text from scratch m 

; x,y coordinates top left border 
; x,y coord inaeia%etf«t^'#il^t horitr 
I memory aAdress text to be placed in 

; screen memory adirits'tef left 
; screen memory address bottom right 
; hor 6 vert length of window 
; line count, temp variittle 



a is 



I.. ^ ■ , . , . . , ,,.,.,,3 DOS-65 Corner 



i41B 


20 


0615 






gtaiadr 


B4|E 


20. mS 




jm 






AO M 


i 


Mir 


#0 




A2 


00 




14% 


#0 


E445 


A9 


10 




Ida 


#$10 


1447 


m 


m 




sta 


[pomtrj.y 


E449 


20 


5FE5 


I 


3»v 


updptx 


E44C 


E8 






iiuc 




E44D 


EC 


16E4 




CpSL 


linlen 


E450 


FO 


07 






2.f 


E452 


A9 


18 




Ida 


#$18 


E454 


91 


00 




sta 


[point r],y 


E4S6 


m 49B4 




j«P 


i.% 


E459 


A9 


16 


2 


Ida 


#$16 


E45B 

... . 


91 


00 




sta 


TpointrT ,y 


E45D 


A n 
AU 




sides 


Ida 


1 inlen+1 


E460 


8D 


18E4 




sta 


lincnt 


B4o3 


61 


mm 


1 


dec 




E466 


20 


72E5 






uodety 


E469 


AO 


00 




Idy 


#0 


E46B 


A2 


00 




Idx 


#0 


E46D 


AD 


18E4 




Ida 


lincnt 


E470 


FO 


IB 




beq 


bottom 


E472 


A9 


19 


> 
2 


Ida 


#$19 


E474 


91 


00 




sta 


[,ppintr3 ,y 


B476 


20 


srss 


3 


j»r 


updptx 


E479 


E8 






inx 




E47A 


J!fV> 


1 fiKL 
iOGiH 






linlen 


E47D 


FO 


07 




beq 


4.f 


fit* / r 


A9 


20 




Ida 


#$20 


E481 


91 


00 




sta 


rpointrT.y 


E483 


4C 


76E4 






3.b 


E486 


A9 


19 


4 


Ida 


#$19 


E488 


91 


00 




sta 


fpointrl ,y 

r.b 


B48A 


46 


63E4 




jap 


E48D 


A9 


12 


bottom 


Ida 


#$12 


E48F 


Q 1 

y 1 


UU 




Sta 


{;pointrl»y 


E491 


20 


5FES 


1 


3«r 


updptx 


E494 


E8 






imc 




mm-. 


1^ 


16B4 






linlen 


E498 


FO 


07 




beq 


2.f 


E49A 


A9 


18 




Ida 


#$18 


E49G 


91 


00 




sta 


fjpointx^ »y 


E49E 


4C 


91E4 




iaie 


l.b 


E4A1 


A9 


14 


2 


Ida 


#$14 


E4A3 


91 


00 




sta 


fpdiiitrf,|r 


E4A5 


60 




• 


rts 


E4A6 


20 


06E5 


* 

instxt 


j«r 


gtaadr 


E4A9 


20 


50E5 




j« 


intadr 


E4AC 


20 


72E5 






updpty 


E4AF 


20 


5FE5 




• 


updptx 


E4B2 


AD 


I0E4 




XUtt 


La L.VeC 








* 
> 


Ida 


#text&255 


E4B5 


85 


04 




sta 


txtadr 


E4B7 


AD 


11E4 














? 


i4» 












H .■ 





; get aenory address o£ coordinates 
; initial if e «4dr«is pointers 

I Si^ewtin* 4mm: dbndk sereen lirap. 



; increwHBt 



er 



get memory aiMres* of #|»oirdinates 
initialise address pointers 
first blank line 
first cliat 
§oi txt address 



DOS-dS Qmmm 



MAM. 85 

wmif 

B4BE AO 
E4C0 Bl 
E4C2 48 
E4C3 20 
E4C6 68 
mCl TO 
E4C9 C9 
E4CB FO 
E4CD 91 
E4CF 20 
E4D2 EB 
E4D3 fC 
E4D6 DO 
E408 20 
E4DB 20 
E4DE A2 
E4E0 4C 
E4E3 60 



05 

00 
04 

8Ai5 

lA 
OD 
OB 
00 
5FE5 

16E4 
E6 
72E5 
5PE5 

01 

BEE4 



sta 




Idx 


#1 


Idy 


#0 


Ida 


[txtadrl ,y 


pba 


j»r 


ijietxt 


pla 




beq 


9.f 


cmp 


#$d 


beq 


2.f 


sta 


][pointr3,y 


j" 


inx 




cpx 


linlen 


bne 


l.b 


jsr 


updpty 


jsr 


updptx 


Idx 


#1 


jmp 


l.b 


rts 





; 0 * end of window text 
; next line within window 



E4E4 A9 
E4E6 85 
E4E8 A9 
E4EA 85 
E4EC A9 
E4EE 85 
E4F0 85 
E4F2 AO 
E4F4 Bl 
E4F6 91 
E4F8 C8 
E4F9 DO 
E4FB E6 
E4FD E6 
E4FF A5 
E501 C9 
E503 DO 
ES05 60 



AO 
01 
E8 
03 
00 
00 
02 
00 
00 
02 

F9 
01 
03 
03 
FO 
EF 



copy2 



Ida 
sta 
Ida 
sta 
Ida 
sta 
sta 
Idy 
Ida 
sta 
iny 
bne 
inc 
inc 
Ida 
cmp 
bne 
rts 



#$aO 
pointr+1 

points<t-l 

#0 

pointr 
points 

#0 

[pointrj ,y 
£pointsl,y 

l.b 

pointr+1 
points+1 
point84'l 

#$fO 
l.b 



E506 38 
E507 AD 
E50A ED 

mm 80 

E510 EE 
E513 AD 
1516 ID 
E519 8D 
E51C EE 

tSlF AE 
1522 AC 
E525 20 
E528 AD 
&52B 8D 
E52E AD 
ES31 8D 
1534 20 



0EE4 
0CE4 
1614 
16E4 
0FE4 
0D14 
17E4 
17E4 

0EE4 
0FE4 
24F0 
24E7 
14E4 
25E7 
15E4 
27F0 



gtmadr 



E537 AE 0CE4 
E53A AC 0DE4 
15 3D 20 24P0 



2 



sec 
Ida 
sbc 
sta 
inc 
Ida 
sbc 
sta 
inc 

Idx 

Idy 

idtt 

sta 
Ida 
sta 
i»r 

Idx 
Idy 



crdxy2 

crdxyl 

linlen 

linlen 

crdxy2+l 

crdxyl+1 

linlen+1 

linlen^l 

crdxy2 

crdxy2+l 

$£024 

*e?24 

adrxy2 

$e724+l 

adrxy2+l 

$f027 

crdxyl 
crdxyl+1 

«Pf024 



; calculate hor lii^ift 

; if carry cleared , error x2 < xl 

; teke eerf of border 



I t«fc «id X and y 
i position cursor 
; and save it 



■mmmnt poMitim 



I reetotf ear tor position 
; get start x and y 

r pbsittiSn cursor 



1540 AD 24E7 




lua 




1343 8D 12E4 




sta 


adrxyl 


mm m Be 7 




Ida 


$e724+l 


E549 8D 13E4 




sta 


adrxyl+1 


E54C 20 27F0 




jsr 


$f027 


i54F 60 




rts 




E550 AD 12E4 


intadr 


Ida 


adrxyl 


E553 85 00 




at* n 


poxncr 


E555 85 02 




Sta 


points 


E557 AD 13E4 




Ida 


adrxyl+1 


E55A 85 01 




tta 


poiai**!' 


K5:)C 85 03 




sta 


points+1 


E55E 60 




rts 




E55F E6 00 


updpCx 


inc 


point r 


eck 






Wbl A5 00 




Ida 


pointr 


E563 DO OC 




bne 


l.f 


E565 E6 01 




inc 


pointr+1 


l§i7 A5 01 






pomtr+i 


E569 C9 FG 




cnp 


#$fO 


E56B DO 04 






l.f 


1S^& A9 18 




Urn 


#$e8 


E56F 85 01 




sta 


polatr^l 


E571 60 


1 


rts 


E572 18 


> 

updpty 


clc 




E573 A5 02 


Ida 


points 


E575 69 50 




ade 


#80 


E577 85 00 




sta 


pointr 


E579 85 02 




sta 


points 


B5?B m m 




Ida 


point s-t-1 


E57D 69 00 




adc 


#0 


E57F C9 FO 




cmp 




E581 DO d2 




bne 


l.f 


E583 A9 E8 




Ida 


#$e8 


E585 85 01 


1 


sta 


pointr+l 


iSi? $% 




sta 


points-t-1 


1589 60 




rts 




> 

inctxt 


inc 


txtadr 


BS8C DO 02 




bne 


9.f 


E58E E6 05 




inc 


txtadr-i-1 


1590 m-'- 


9 
• 


tts 




E400 


t 


end 


lAit 



label table 



OOS-65 Cmmm 



; get memory address eifrrent positioa 
; and save it 



I restore cursor position ? 



i initialise pointers 



I iitdate poiater (inetiHeiit by one and 
» for screen wrap) 



set pointr to aexf Jim med «tet 
' for 8cr««i Hiif 



adrxyl 

copy2 

inctxt 

linlen 

rmatm. 

txtadr 



E412 adrxy2 

B4E4 erdstyl 

E58A init 

E416 makewi 

0004 txitvee 



border 


E43B 


bottom 


E48D 


copyl 


E419 


crdxy2 


E40E 


fillwi 


E406 


gtmadr 


E506 


instxt 


E4A6 


intadr 


K5S0 


liaeae 


^ii 


pointr 


0000 


points 


0002 


prtext 


C03B 


scratc 


AOOO 


sides 


E45D 


top 


E441 


updptx 


155f 




B572 





Errors deteeteili 0 



file 

attthor 

date 



01^-65 Corner 



windt wlib .mac 
E . I . E Iderenboach 
sept 10, 1988 



reserved addresses itt {pNSge mw& 



pointr 


equ 


$0000 


f 


flHNi#fy address pointer £,21 


points 




$0002 


• 
1 


mm&ty addresi pointer save 


txtadr 


equ 


$0004 


> 


nenory address text pointer ptj 


; addresses of 


resident 


window routines (used %y u##r f^agiwi) 


savewi 


equ 


$e400 


i 


copy screen area to scratch memory 


makewi 


equ 


$e403 


« 
> 


make window border & clear text itrM 


fillwi 


equ 


$e406 




copy text to text area 


remowi 


equ 


$e409 


> 


restore original text from scratch memory 


; window variable block 


(wsst be filled by user program) 


crdxyl 


equ 


$e40c 


9 


r^l x,y co&rdinates top left border 


crdxy2 


equ 


$e40e 


I 


C23 x>y coordinates bottom right border 


txtvec 


equ 


$e410 


9 


[Z} memory address text to be placed in window 


; internal variables window routines 


adrxyl 


•i|tl 


$e412 


> 


I2l screen memory address top left 


adrxy2 


equ 


$e414 


> 


^2} screen memory address bottom right 


linlen 


equ 


$e416 




[22 hor & vert length of window 



file demo. mac 

purpose demonstration prt^ram for window routines 

author E.R.Elderenbosch 

date 08 sept 1988 

lib windowlib 
getcha equ $c020 

one way to use the window routines is to use a macro like this one 
eveirj^ime you want to open a window. Ihe parameters are: 

xl leftmost X coordinate 
yl upper y coordinate 
x2 righiamost x eoordinate 
y2 lower y coordinate 
txt 2 byte address of text string 

Be sure to check bounderies and text length because the window 
routines assume that all parameters are checked 

setvec macro xl ,y 1 ,x2,y2,tiEl 

Ida #xl 

sta crdxyl 

Ida #yl 

sta crdxyl#t 



8ta 
Ida 
8ta 
Um 
sta 
Ida 
sta 
endn 



crdx/2 
#y2 

crdx^2+l 

#txtA255 

txtvec 

#txt»8 

txtvec+1 



A second way to open a window is to give a starting point (top-left) 
and the width and htigClt of your window avA #1, course the text address 
In this case, use a naetif litet *k# wmxo below 

xl window width 
yl window height: 



setvecl macro xl ,y I ,xl ,yl ,txt 



Ida 
sta 
Ida 
sta 
Ida 
sta 
Ida 
sta 
Ida 
sta 
Ida 
sta 
endn 

org 



#xl 

crdxvl 
#yl 

crdxyl+1 

#xl+xl 

crdxy2 

#yl*yl 

crdxy2+l 

#txt&255 

txtvec 

#txt»8 

txtvec+1 



$2000 



start demo program 



start 



savewi 



saves the current scircin 



setvec 45, 10, 70, 22, text 



|sr 
jar 



makewi 
fillwi 
getcha 
reaowi 



; use absolute values this tine 

; make a window and clear it 
; copy text to window 
; any key to continue 
; restore old sereen 



s#tv«c 5,4,32,14,text2 



jsr 
jsr 



makewi 
fillwi 
getcha 
remowi 



setvecl 17,14,53,6,text3 



: use width and height now 



jsr 
jsr 



siafeewi 
fillwi 
getcha 



setvecl 22,12,32,4,text4 



jsr 
jsr 

jsr 



raakewi 

fillwi 
getcha 

fmm 



don't clear the window 
; overlay a second window 



setvecl 17,1*., 53, 6, text 3 ; restore last window 



jsr nakewi 

jsr fillvri 

jsr getchs 

lit removi 



8e|vecl 70,2. 2 » 18, p 
. ^ j»| makewi 

setvecl 40, 3. 33, 5, texts 
jsr makewi 
jsr fillwi 
jar getcha 
jar remowi 

setvecl 3,3,69,16,0 
jsr makewi 
setvecl 5,4,65, 14, text6 
jsr makewi 
jsr fillwi 
39 } '.■^^^=,, 1 getcha ■ 

jar renowi 

* 

rta 



file text nust consist of normal printable characters. It is copied 
directly into screen ram. Use $d (cr) to go to th« next line within 
the window and $0 (null) as end of text. 



text fee ' This is a window demo',$d 

fee ' ,$d,$d 

Cbc * could )»e used as help' ,$d . / : - 

fee • windolr'pfa program' ,$d f V." , " 

fee ' or as^a iafenu' ,0 

> 

t■^^%Z. fee • A window can be opened ',$d 

fee ' by using routines savewi'«$d 
<-<^6c:'?^^'»^ind mikewi.^tixt eanbe',$d ' ^ 

fee • inserted with fillwi, the',$d 

fee ' window can be cleared by' ,$d 

fee ' makewi ani^rmimted by the* ,$4 

fee ' remowi routine.',$d 

fee ' win^o^, .coordinates and',$d 

fee ' (ixt aidress must be set'.Sd 

fce n * i« tabla $e40e-$a4U ' ,0 

* 

tcxt| fee * the routines are loaded in a memory area at $e400',$d 

fee ' by the login.com file and use 512 bytes o£ memory' ,$d 
. .|§P not to wipe them by using a program like',$d 

fee * exetime that will be loaded at the same location' ,$d 

fee ' The original screen contenta are atored in •cratch' 

fee • moBory at $a000-a7f f ' ,0 



text4 fee ' Text windows can also be',$d 

fee ' overlayed. The underlaying' ,$d 

fee * wiadon wiU net |w 4elet)^*,$d 

fee ' if you do wtt want it deleted \0 



I. 



testtS 



fee 

fee 
fee 

See 



c === A H W B' »$ii , ,, 

T= A • ,$d 

/ t o /~\ 26.3 Haarlem", $d 

(©) - (o) 30.7 Amsterdam' ,$d 

29.5 Delft', 0 



DOS-ii CmmM 



texts 



fee 
fee 
fee 
fee 
fee 
fee 
fee 
fee 



$d,$d,$d 

r 



GGG 


000 


000 


DDDD 


BBBB 


Y t 


t 


0 0 


0 0 


D 


D 


B 1 


¥ Y 


G GG 


0 0 


0 0 


D 


D 


BBBB 


Y 


G G 


0 0 


0 0 


D 


0 


B B 


Y 


GGGG 


000 


OOQ 


mm 


1 




Y 



$d , $d , $d , $d , $d f ' 



EEEEE ' a $d 
E',$d 
EEEE' ,$4 
E',$d 

Brtts t Elder enboscH * 



end 



start 



TALEH/SOFTIiMIC 



giB«f van BTrto8thCTea« 

/♦ 

* Dit is een VMi de vele zogenaamde 

* Bechmark-programma's; speclaal 

* bedooeld om de snelheld van de -^y 

* processor, in combinatie met het ' 

* gehe^eti te bepalen. 

* Dit programma berekent priemge- 

* tallen (dat zijn get alien die 

* alleen deelbaar zijn door 1 en 

* door zichzelf ) volgens de 

* van Eratosthenes* i, ; 
* 

* Het rekenschema is als volgt: '■ 

* 1) Doe alle oneven getallen 

* tussen 3 en n in een zeef* 

* 2) Haal het kleinste getal 

* ult de seef ; dit is een 

* prleogetal. 

* 3} Haal alle veelvouden van 

* het geta|,;|j|l| 2 tilt df 

* zeef . " 

* 4) Herhaal stap 2 t/n 4 totdat 

* d«^izeef^le«g''i8«v 



#kel%ite 'iiitiio.h> 
#define size 8190 
malnO 

liii { 

.char flags[8lze]; 
int i, prime, k, count, Iter; 

prlntf ("\nStart iterations"); 
for(iter - 1; iter <- lOj lt«r**){ 
count "0; 
»v- . 'tforCi - 0; i <■ size; 

flagsli] - (char) 1; 
ford - 0; i <- size; i++){ 
(flags[i]){ 
^ . prime - i + i + 3; 

k " i + prime; 
while (k <- size){ 

flags [k] - (char) 0; 

■ ewmtfki • 
) 

|rintf("y9Z<l primes", eoimt)i 



■Sit '* s* f ■'■ ' 



III 



